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EXECUTIVE  SUMMARY 


The  focus  of  this  research  was  on  the  development  of  a  finite  element  code  for  solute 
transport  and  trapping  in  linear  elastic  mixtures  for  use  in  modeling  the  hydrogen  transport 
process  in  metals  undergoing  hydrogen  assisted  cracking.  Specific  objectives  included: 

1. )  Completion  of  the  development  of  a  solute  transport  and  trapping  model  with 

coupling  between  the  concentration,  deformation,  and  thermal  field  variables  and 
trapping  at  reversible  and  irreversible  trap  sites. 

2. )  Implementation  of  the  above  theory  in  a  finite  element  code. 

3. )  Calculation  of  the  crack  tip  deformations  and  chemical  state  variables  for  some  high 

strength  steels  under  a  variety  of  loading,  environment,  and  material  conditions. 

A  solute  transport  model  has  been  developed  for  linear  elastic  mixtures  with  coupling 
between  the  deformation,  concentration,  and  thermal  variables  and  trapping  at  reversible  and 
irreversible  trap  sites.  A  journal  publication  describing  this  model  is  in  preparation^ 

Work  on  a  2-D  finite  element  implementation  and  its  application  to  the  modeling  of 
hydrogen  transport  in  a  cracking  metal  is  ongoing.  A  1-D  code  has  been  developed  and  tested 
on  a  variety  of  problems  with  known  analytical  solutions.  The  “code”  consists  of  a  Fortran 
“user  element”  subroutine  for  use  with  the  ABAQUS^  finite  element  program. 
Documentation  of  the  1-D  user  element  subroutine  is  contained  within  this  report. 

Work  on  objective  3.)  could  not  be  started  without  a  2-D  version  of  the  finite  element 
code.  The  1-D  code  was  used  to  model  a  variety  of  hydrogen  transport  problems  with  the 
objective  of  learning  more  about  the  fully  coupled  transport  theory.  We  were  able  to  “invent” 
a  problem  with  a  square-root  singular  stress  {ax~l/ \/x).  This  problem  was  used  to  gain 
preliminary  insight  into  the  hydrogen  distribution  problem  in  planar  crack  geometries.  The 
problem  consisted  of  subjecting  a  4340  steel  rod  (10  cm  x  1  cm?)  to  a  singular  body  force  (~ 
1/x^?)  resulting  in  the  square  root  singular  stress.  The  steady-state  hydrogen  concentrations 
and  deformations  were  determined  using  the  fully  coupled  theory,  developed  in  this  work, 
and  classical  stress  assisted  diffusion  (SAD)  theory. 

The  fully  coupled  predictions  showed  slightly  higher  hydrogen  concentrations,  a  more 
severe  singularity  in  the  concentration,  larger  axial  and  dilatational  strains,  and  larger  axial 
displacements,  all  of  which  depended  on  the  extent  of  hydrogen  trapping.  The  mathematical 
solution  for  the  concentration  became  multi-valued  as  the  singularity  was  approached.  It  was 
shown  that  this  “non-physical”  result  would  be  eliminated  if  the  product  of  the  density,  the 
molar  volume  of  hydrogen  in  the  mixture,  and  the  bulk  modulus  decrease  linearly  or  better 
with  increasing  hydrogen  concentration.  These  findings  are  documented  in  the  report  and  in  a 
conference  paper  included  as  Appendix  E. 

Development  of  a  2-D  user  element  subroutine  is  ongoing.  The  2-D  code  will  initially 
be  limited  to  simple  linear  elastic  mixture  behavior  and  equilibrium  trapping.  Extensions  of 
the  model  to  include  non-equilibrium  trapping  effects  and  plastic  crack  tip  deformations  are 
planned.  An  effort  is  also  being  made  to  interface  the  ABAQUS  code  with  our  user  element 
routines  to  the  Patran^  Solid  Geometry  Modeling  program  for  more  convenient  meshing  of 
complex  2-D  geometries  and  for  displaying  the  finite  element  results. 


*  J.  P.  Thomas  and  P.  Matic,  “Solute  Transport  Modeling  in  Elastic  Solids”,  Int.  J.  Eiignr.  Sci.,  in  preparation. 
2  ABAQUS  is  a  finite  element  code  supported  by  HKS,  Inc.,  Pawtucket,  RI. 

Patran  is  a  solid  geometry  modeling  program  supported  by  PDA  Engineering,  Costa  Mesa,  CA. 
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TRANSPORT  MODELING  OF  HYDROGEN  IN  METALS 
FOR  APPLICATION  TO  HYDROGEN  ASSISTED  CRACKING 


INTRODUCTION 

Two  fundamental  questions  naturally  arise  in  modeling  the  influence  of  hydrogen  on 
the  crack  growth  rate  of  metals.  Namely,  how  does  hydrogen  “enhance”  the  crack  growth  rate 
(CGR);  and  what  is  the  relationship  between  the  hydrogen  distribution  within  the  material 
and  the  corresponding  “enhancement”  in  the  CGR?  Quantitative  knowledge  of  the  crack  tip 
hydrogen  distribution  under  service  or  laboratory  test  conditions  is  requisite  to  addressing 
these  questions  and  will  require:  a)  a  hydrogen  transport  model  that  incorporates  trapping  and 
deformation-concentration  coupling  effects  (governing  equations);  b)  knowledge  of  the  time 
dependent,  non-uniform  hydrogen  distribution  along  the  crack  walls  (boundary  conditions); 
and  c)  a  mathematical  solution  technique  for  the  resulting  system  of  non-linear  equations. 

Stress-assisted  diffusion  (SAD)  theory  [1,2]  is  commonly  used  to  model  hydrogen 
transport  in  cracking  metals  systems.  This  theory  extends  classical  diffusion  by  adding  a 
hydrostatic  stress  gradient  term  as  a  driving  force  for  diffusive  transport.  Equilibrium 
trapping  effects  are  included  through  the  use  of  an  effective  diffusion  coefficient. 

The  influence  of  hydrogen  on  the  material  deformation  state  is  assumed  to  be 
negligible,  and  this  uncouples  the  deformation  equations  from  the  concentration  variable. 
Hydrostatic  stresses  determined  from  solutions  to  standard  elasticity  or  plasticity  problems 
are  used  with  the  SAD  equation  to  solve  for  the  resulting  concentration.  The  steady-state 
hydrogen  distribution  for  Mode  1  cracks  in  linear  elastic  materials  with  uniform  hydrogen 
concentration  along  the  boundaries  is  given  by  [2]: 


c  = 


CQexp 


K  e\ 

constant  x  - cos- 

V’-  y 


where  cq  is  the  boundary  concentration,  K  is  the  stress  intensity  factor,  and  r  and  9  are  polar 
coordinates  centered  at  the  crack  tip.  Note  that  c  — >  oo  as  r  — >  0  (the  crack  tip). 

Transient  and  steady-state  hydrogen  distributions  for  a  plastically  deforming  crack  in 
iron  have  been  obtained  by  Sofronis  &  McMeeking  [3]  using  finite  element  methods.  Their 
results  show  large,  but  finite,  concentrations  at  the  crack  tip  region,  primarily  in  traps  near  the 
crack  surface.  They  conclude  that  the  crack  tip  hydrogen  distribution  is  primarily  determined 
by  the  creation  of  dislocation  traps  via  plastic  straining  at  the  crack  tip. 

Damage  models  that  attempt  to  link  the  crack  tip  hydrogen  distribution  to  the  fracture 
process  have  been  reviewed  in  [4-6],  Applications  to  service  cracking  problems  have  met 
with  some  success,  but  the  lack  of  information  on  the  crack  wall  hydrogen  distributions  under 
service  or  laboratory  conditions  has  limited  the  usefulness  of  these  models. 

The  task  of  specifying  the  crack  wall  hydrogen  distribution  is  difficult  because  of  the 
complex  nature  of  the  interacting  chemical,  mechanical,  and  metallurgical  processes 
operative  during  hydrogen  assisted  cracking  of  metals  (Fig.l).  In  aqueous  systems,  the 
hydrogen  production  process  is  driven  by  the  rapid  and  irreversible  evolution  of  the 
chemically  unstable  “bare”  surface  at  the  crack  tip  to  a  more  stable  equilibrium  “filmed” 
state.  An  electron  flow  is  induced  between  the  bare  and  filmed  crack  flank  surfaces;  net 
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anodic  (dissolution/filming)  reactions  take  place  on  the  bare  surface  and  net  cathodic 
(hydrogen  reduction)  reactions  take  place  on  the  filmed  surfaces. 

Adsorbed  hydrogen,  Hads  >  can  be  produced  on  both  the  bare  and  filmed  crack 
surfaces  by;  (1)  the  reduction  of  hydrogen  ions  in  acidic  environments;  or  (2)  by  the 
reduction  of  water  in  alkaline  environments.  The  MHads  species  are  then  free  to  be  absorbed 
by  the  transition  reaction  (a);  or  combine  to  form  H2  gas  via:  recombination  (bl);  or 
electrochemical  desorption  (b2).  Reactions  (a),  (bl),  and  (b2)  occur  in  parallel,  but  one  of 
the  two  (bl)  or  (b2)  reactions  is  usually  dominant  (Fig. 2). 


Crack  Tip  Region 


3.  Hydrogen  Absorption  Reactions 

4.  Hydrogen  Transport  and  Trapping 

5.  Hydrogen  Damage 


Figure  1:  Schematic  of  the  processes  responsible  for  hydrogen  assisted  crack  growth. 


(1)  Acidic; 

M  +  +  e-  ^  MHads 

(2)  Alkaline: 

M  +  H2O  Ae-  ^  MHads  +  OH- 

(a)  Adsorption- Absorption: 

MHads  MHabs 

(bl)  Recombination: 

MHads  +  MHads  <=>  H2  +  2M 

(b2)  EC  Desorption: 

MHads  A  H+  +  e-<^H2  AM 

Figure  2:  Summary  of  the  hydrogen  producing  reactions. 

The  distribution  of  MHabs  along  the  crack  surface  is  governed  by  the  surface 
coverage  of  MiTaris^md  the  kinetics  of  reaction  (a)  acting  in  parallel  with  reaction  (bl)  or 
(b2).  These  factors  are  influenced,  in  turn,  by:  the  electrochemical  environment  at  the  crack 
tip  region  (e.g.,  the  potential,  pH,  species  concentrations,  dissolved  O2,  etc.);  the  kinetics  of 
the  bare  and  filmed  surface  reactions;  and  the  rate  of  transport  of  Hats  from  the  crack  surface 
into  the  material. 
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Iyer  and  Pickering  [7]  have  reviewed  and  modeled  the  kinetics  of  hydrogen  evolution 
and  entry  in  stress  free  metallic  systems  with  homogeneous  electrochemical  conditions  at  the 
metal  surface.  Their  model  is  used  to  quantify  the  rate  constants  associated  with  reactions  (1) 
or  (2)  and  (a)  and  (bl)  or  (b2)  via  analysis  of  experimental  permeation  data.  Turnbull  [8]  has 
reviewed  electrochemical  conditions  in  cracks  with  particular  emphasis  on  corrosion  fatigue 
cracks  of  structural  steels  in  sea  water.  Similarly,  Beck  [9]  and  Newman  [10]  have  examined 
experimental  techniques  for  characterizing  bare  (and  filmed)  surface  reaction  kinetics.  The 
above  models,  data,  and  techniques,  plus  information  concerning  the  rate  controlling  process 
during  crack  growth,  will  have  to  be  used  in  an  analysis  of  the  mass  transport  process  within 
the  crack  to  develop  realistic  predictions  of  the  MHghs  distribution. 

We  begin  with  a  description  of  fully  coupled  transport  and  trapping  theory.  The  use  of 
the  ABAQUS  finite  element  “User  Element”  subroutines  for  solving  1-D  problems  is  then 
outlined  in  full  detail.  This  is  followed  by  a  description  of  three  1-D  rod  problems  that  have 
been  studied.  The  results  of  these  studies  are  reported  next,  followed  by  a  discussion.  And 
finally,  some  conclusions  are  drawn,  and  suggestions  are  made  for  further  research. 

THEORETICAL  MODELING 

This  section  begins  with  a  brief  description  of  the  theory  adopted  for  modeling 
coupled  diffusion/trapping  processes.  Derivation  of  the  finite  element  equations  using  the 
method  of  weighted  residuals  is  described,  followed  by  a  description  of  analytical  and  finite 
element  solutions  to  three  simple  steady-state  hydrogen  transport  problems.  While  the 
motivation  for  this  work  is  the  modeling  of  hydrogen  transport  in  cracking  metal  systems,  the 
formulation  presented  here  is  generalized  to  generic  solute-solid  mixtures. 

Three  solute  species  are  modeled  in  the  analysis: 

Sl  =  interstitial  or  lattice  species 
Sr  =  weak  or  moderately  (reversibly)  trapped  species 
Si  =  strongly  (irreversibly)  trapped  species 

Balance  Equations 

Balance  equations  for  the  mixture  mass,  the  three  solute  species  masses,  mixture 
linear  momentum  and  moment  of  momentum,  mixture  energy,  and  mixture  entropy  can  be 
written.  In  this  report,  our  modeling  considerations  will  be  restricted  to  isothermal  linear 
elastic  mixtures  so  that  only  the  balance  equations  for  the  solute  species  mass  and  mixture 
linear  momentum  need  be  explicitly  considered.  Assuming  negligible  inertial  effects,  they  are 
given  by: 

Qch  ^ 

Mass:  ^  +  V  •  J,- =  a,,  {k  =  L,  R,  or  I)  (1) 

Linear  Momentum:  -f  T)  =  0  [i,j  =  x,  y,  or  z)  (2) 

where:  Ck  =  mass  fraction  concentrations  for  Sk  [kg/ kg]. 

jk  =  concentration  flux  vectors  for  Sk  [kg /kg  ■  m/s]. 

Ok  =  mass  supply  rates  for  Sk  [kg/kg/s] . 
aij  =  stress  tensor  [N/rrS] . 

Fi  =  the  component  of  body  force  vector  [N /rrS] . 
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Trapping  Analysis 

Expressions  for  the  mass  supply  rates  in  Eq.  (1)  are  written  in  aecordance  with  the 
trapping  model  of  McNabb  &  Foster  [11]; 

Stoichiometry:  Sl  Sr  and  Sr  ^  Sj  (3) 


The  stoichiometric  relations  require  the  supply  terms  sum  to  zero  (i.e.,  aR  +  aj  =  —  qr). 


f  h 

Kinetics  of  Trapping:  or  =  —  OfjCR  —  kRO^^ 

aj  =  k{{l  -  9j)cr  -  kjdj  ^  k{{l  -  9j)cr 


(4) 


where:  kj^,  kj,  kj^,  /cj  =  forward  and  backward  trap  rate  constants  for  Sr  and  Sj  [1/s]. 

9^  and  6^  =  cr/cj^  and  cj/cj,  respectively,  are  the  fraction  of  filled  trap  sites  [1]. 
c|j  and  Cj  =  saturation  mass  fraction  concentration  of  Sr  and  Sj  [kg /kg]. 

The  quantities  /c;^,  kj,  k^j^,  /cj,  c|j  and  cf  are  related  to  trap  site  densities,  probability  of 
capture,  etc.  and  can  be  quantified  via  experimental  measurement  (see,  for  example,  [12-14]). 

Significant  simplifications  are  effected  when  the  rate  constants  for  trapping  are  much 
greater  than  those  for  diffusive  transport.  Trapping  can  then  be  modeled  as  a  steady-state 
process  (i.e.,  or  =  aR  =  aj  =  0).  This  case  is  considered  below. 


SS  Trapping: 


cr 


Cr  Kr  Cr 
1  +  Krcr 


c|j  Kr  Cr 


& 


Kr=^  =  exp 

Kr 


-  AgA 
ET  ) 


Cl  =  cf 


(5) 


The  total  internal  solute  concentration  is  simply  a  linear  function  of  CR{xi,  t): 

Ctotal{x^,  t)  =  CR{xi,  t)  +  cr{xi,  t)  -f  c/(xj,  t)  =  {1  +  c%  KR)cR{xi,  t)  -f  cf  (6) 


The  three  versions  of  Eq.  (1)  (one  for  each  species)  can  be  summed  to  give  a  single 
equation  by  the  following  considerations.  First,  J r  =  J i  =  0  because  of  the  linear  elastic 
material  assumption  which  precludes  trap  site  motion  (e.g.,  dislocation  motion  during  plastic 
deformation).  Second,  froniEq.  (5a); 


dCR 

dt 


c%Kr 


dcR 

dt 


and 


(7) 


Summation  of  the  three  balances  results  in  the  following  single  mass  balance  equation: 

dcR 


(1  +  Cr  Kr)- 


dt 


S/- Jr  =  0 


:8) 


Constitutive  Equations 
Mass  Flux:  J r 


crDr 

B.lT 


V/i-L 


Linear  Onsager  Relation 


(9) 


where  [ir  is  a  mass  based  chemical  potential  [15]  defined  by: 
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^  ilJiUT)  +  RTHcl)  -  Vske) 

and:  =  diffusion  coefficient  for  Sl  [rn^/s]. 

Rl  =  gas  constant  for  Sl  =  R/M.l  [J /kg  ■  °K'\. 

M.l  =  molecular  mass  of  Sl  [kg/mol\. 

T  =  temperature  [°K]. 

■0  =  ^jJ{cL,  cr,  c/;  eij ;  T)  free  energy  per  unit  mixture  mass  [J /kg], 
pi°LiT)  =  reference  potential  for  ^^at  temperature  T  [J /mol\. 

Vs  =  partial  molar  volume  of  solute  in  the  metal  [m? /mol  S']. 
k  =  bulk  modulus  of  elasticity  [N/m?]. 

e  =  trace  of  the  strain  tensor  (i.e.,  e  —  ea  =  en  +  €22  +  633)  [m/m]. 

The  use  of  a  mass  based  chemical  potential  simplifies  the  analysis  of  fully  coupled 
deformation-diffusion  processes  because  of  the  primary  role  played  by  mass  in  the 
deformation  equations. 

The  resulting  expression  for  concentration  flux  is  given  by: 

Jl=  -DLVCL+'^^^kCL^e  (11) 

The  constitutive  equation  for  the  stress  consists  of  Hooke's  law  combined  with  a 
dilatational  stress  contribution  due  to  changes  in  the  total  solute  concentration: 

o  I 

Stress:  Cij  =  p  - —  =  A  e  6ij  +  2Geij  —  3k  ag  {I  +  CrKr)  Acl  6ij  (12) 

oeij 

where:  p  =  mass  density  of  the  solid  \kg/w?'\ . 

A  =  Lame"  constant  [N /vn?]. 

~  Kronecker  delta  {dij  =  1  for  i  =  j  and  0  otherwise). 

G  =  shear  modulus  [N /w?]. 

Cjj  =  ^  {uij  +  Uj^i)  infinitesimal  strain  tensor  [m/m]. 

Ui  =  the  component  of  the  displacement  vector  [m]. 

as  =  linear  expansion  coefficient  for  internal  solute  =  \  s  [m/m/ Acg]. 

Acl  =  Cl  —  cq  =  change  in  c^from  the  reference  level,  cq. 

(1  +  Cj^Kr)Acl  =  change  in  ctotal  from  the  reference  level. 

The  influence  of  the  irreversibly  trapped  solute  on  the  deformation  of  the  solid  has 
been  ignored  in  Eq.  (12).  The  assumption  of  equilibrium  trapping  implies  that  cj  ^  cf 
immediately  upon  introducing  solute  into  the  solid.  We  have  assumed,  therefore,  that 
Cl  =  cf,  and  that  all  deformations  are  measured  with  respect  to  an  initial  uniform 
deformation  arising  from  the  presence  of  the  irreversibly  trapped  solute  species  at  its 
saturation  concentration  level. 


J_ 

[kg. 


(10) 
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The  relationship  between  the  chemical  potential  and  stress  (Eqs.  (10)  and  (12))  is 
dictated  by  the  thermodynamic  reciprocity  relationship: 


djj^  ^  d{aij/p) 
dsij  dcL 


(13) 


The  equations  of  classical  stress  assisted  diffusion  violate  this  requirement  by  ignoring  the 
concentration  induced  dilatational  stresses. 


Governing  Equations 

Combining  the  mass  and  momentum  balance  equations  with  the  constitutive  relations 
results  in  the  following  system  of  governing  equations  for  transport: 

Diffusion  Equation: 

^  =  i5e//VVi,-f^A:(Vci.Ve  +  CiV^e)  (14) 

Deformation  Equations  (i  =  1,  2,  3): 

(A  +  G)  —  +  G  VV  +  F^  =  3k  a,(l  +  c%Kr)-^  (15) 

where  Dgff  is  an  “effective”  diffusion  coefficient  defined  by:  Deff  =  Dl/{1  +  c%Kr). 

Equation  (14)  is  identical  to  the  SAD  equations  published  in  the  literature  with  the 
exception  of  the  V^e  term  which  is  identically  zero  when  linear  elastic  material  behavior  is 
assumed  (no  coupling  and  F,  =  0).  In  the  present  formulation  it  is  given  by: 

V"e  =  3^^(l  +  4/<fi)VV  (16) 

FINITE  ELEMENT  MODELING 

Equations  (14)  and  (15)  form  a  system  of  non-linearly  coupled  partial  differential 
equations  that  must  be  solved  for  cr  and  Ui  as  functions  of  the  space  and  time  coordinates 
In  developing  the  finite  element  equations,  it  is  more  convenient  to  work  with  the 
system  of  balance  equations  joined  with  appropriate  constitutive  equations.  The  1-D  form  of 
the  equations,  with  both  “plane  stress”  and  “plane  strain”  constitutive  relations,  is  given  by: 

Diffusion: 


dcL  ^  ^  . 
dt  dx 
dcL  D 


(IV) 


^  kcr  — 
T  dx 


Deformation: 


dax 

dx 


+  Fr  —  0 


(18) 
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Plane  Stress  Constitutive  Relations:  {oy,  axy,  cTyzi  o'zx  =  0) 

ax  =  3ke  -  9kas{l  +  c%Kr)Acl  =  Ee^  -  Eas(l  +  CrKr)Acl 
Plane  Strain  Constitutive  Relations:  (e^^,  ez,exy,  €yz,  €zx  =  0) 

o'a;  —  (^  +  2(j)e  —  3kas[l  +  CrKr)Acl 


E{l-u) 


E 


^T. 


{l-2u){l  +  u)  ^  (l-2i/) 


-a!s(l  +  CrKr)Acl 


(19) 

(20) 


A  single  differential  equation  for  cr,  under  plane  stress  conditions,  can  be  obtained 
using  Eqs.  (17)  through  (19): 


dcL 

dt 


A 

dx 


pV^k 

Ml^T 


(1  +  Er)cl 


dcL 

dx 


+ 


Deff 

3RT 


FxCL 


(21) 


In  the  absence  of  body  forces,  this  is  a  standard  diffusion  equation  with  a  concentration 
dependent  diffusion  coefficient.  Solutions  to  the  steady-state  problem,  with  and  without  body 
forces,  can  be  obtained  straightforwardly  by  integration;  symbolic  computation  is 
recommended  (see  Appendix  A). 


Programming  Simplifications 

The  following  generalizations  are  made  to  the  expressions  for  dilatational  strain  e  and 
axial  stress  ax  to  simplify  the  subsequent  finite  element  coding.  They  are  obtained  using  Eqs. 
(19)  and  (20)  and  the  definition  for  Acr: 


e  —  +  ^2Cl  “■  ^3  (22) 

ax  =  Bie  -  B2CR  +  B3 

where  Ai  and  Bi  {i  —  1,  2,  or  3)  are  constants  defined  in  the  table  below: 


Constant 

Plane  Stress 

Plane  Strain 

Ai 

1 — 1 

1 

to 

1 

A2 

2(1  -1-  n)as{l  +  c^Kr) 

0 

A; 

An  X  Co 

0 

Bi 

3k 

(A  -f  2G) 

B2 

9kas{l  +  d^Kr) 

3/cas(l  +  c^Kj) 

B3 

B2  X  Co 

B2  X  Co 

Table  1:  Constants  for  the  dilatational  strain,  e,  and  axial  stress,  cr^,  relations. 
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The  elastic  constants  needed  as  input  to  the  finite  element  program  are  the  elastic 
modulus,  E,  and  Poisson's  ratio,  v.  Conversions  from  bulk  modulus,  k,  and  A  +  2G 
(A  =  Lame  constant  and  G  =  shear  modulus)  are  given  by: 


A  +  2G  = 


E 

3(1  -  2u) 
{l-iy)E 

(1  +  i/)(l  -  2i/) 


(23) 


The  equations  of  classical  stress  assisted  diffusion  result  by  setting  the  constants  A^,  A^,,  B2, 
and  JSa  equal  to  zero. 


Formulation  of  the  Finite  Element  Matrix  Equations 

Galerkin  method  of  weighted  residuals  is  used  to  formulate  the  finite  element  matrix 
equations.  This  procedure  uses  the  interpolation  functions  as  weights  in  the  integral 
formulation  given  below  [16]: 


G,  dV,  =  0 


Hj  dVe  =  0 


(24) 


where:  Gi  =  concentration  interpolation  function,  {Gi  =  Gi{x)). 

Hj  =  displacement  interpolation  function,  {Hj  =  Hj{x)). 
dVe  =  differential  element  volume  =  Aedx. 

Ae  =  cross-sectional  area  (Ag  —  Ae{x)). 

Integrating  the  second  term  of  Eq.(24a)  and  the  first  term  of  Eq.(24b)  by  parts 
yields  the  coupled  set  of  equations  for  a  single  finite  element  of  length  h  {0  <  x  <  h)\ 


-  I  +  -fx  Ag  dx  = 


~AgJl{G,{x)} 


-  Aea:i:{Hj{x)} 


h 

0 

h 

0 


(25) 


The  RHS  term  Aev7£  represents  the  axial  solute  influx  through  the  element  boundaries  and 
AeCTx  represents  the  axial  force  applied  at  each  end  of  the  element. 


Interpolation  Functions  for  the  Concentration  and  Displacement 

The  concentration  is  represented  using  a  linear  interpolation  function,  and  the 
displacement  is  represented  using  a  quadratic  interpolation  function: 
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(26) 


CL  =  '^Gi{x)ci{t)  =  [Gi(x)]{ci{t)}  i  =  l,2 

dGi(x) 


1=1 
2 


dcL  _  -s^dGii^x) 


dx 


dx 


dCL 

dt 


=  LGi(i)J 

1=1 


=  EGi(= 


{ci(t)}  z  =  l,2 

If}  -« 


u  =  '^Hj{x)uj{t)  =  [Hj{x)\  {Mj(^)}  j  =  1, 2, 3 
i=i 

3 

0=^ 


(27) 


du  _  \;^dHj{x) 


dHjjx) 

dx 


dt 


;=i 


{«,{()}  i=l,2,3 

duj(t) 


dt 


J  =  1,2,3 


where  [•••]  indicates  a  row  matrix  and  {•••}  a  column  matrix.  Substitution  of  these  into 
Eqs.(22a,b)  and  (17b)  for  the  dilatational  strain,  stress,  and  mass  flux,  respectively,  give: 


(7x  —  B\A\ 

Jt-- 


e  = 

dH,{x) 

dx 

-  Dcn 


dH,(x) 

dx 


{uj{t)}  +  A2LGi(a:)J{ci(f)}  -  As 


(28) 


{uj{t)}+{BiA2  -  B2)[Gi{x)\{ci{t)}  +  (Bs  -  B1A3) 


dG^{x) 

dx 


de 


{c^{t)}+D,fjK,mx)\{cm^ 


Substituting  Eqs.(28a,b,c)  into  Eq.(25a,b)  and  collecting  terms  in  {ci{t)},  {ui(f)},  {d,(t)}, 
and  {uj{t)}  yields  the  following  matrix  equation: 


[^c]  [0] 

[0]  [0] 


{C7} 

{%} 


+ 


where: 


8^ 

[  {cj  1 
1  J 

_  I  {^c}  1 

"  1  {Ru}  j 

(29) 

111 

• 

(30) 

(  .  1  dui 

<"■>  ^  -dt 

[C-^IeeA,  /  {G,{x)}[G,ix)\dx 
Jo 


(3i: 
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(32) 


[Ku]  s  A. 


e  j  B^Ai 

Jo 

h 


[Ken]  =  [0] 
dHj{x) 


dx 


dH jjx) 
dx 


dx 


{K^]  =  A,J  {B1A2  -  }[G,(x)\dx 

rh 


[Ke]  ^  A,  D 


/o 


e// 


dGi{x) 

dx 


dG^ 

dx 


-Kr 


dGi{x)  \  de 


dx  j  dx 


■\_Gi{x)\  ]dx 


{fljEE  ^  A,  {G,(x)}  ^ 

{«„}  =  A,j  dHj{x)}F,  -  (Bt  - 


(33) 


dx  +  Aeax{Hj{x)} 


h 

0 


and  where  the  cross-sectional  area,  Ag,  is  assumed  to  be  constant  within  the  element. 

The  fact  that  [Kcu]  is  zero  might  appear  to  imply  that  there  is  no  coupling  between 
concentration  and  deformation,  but  this  is  not  the  case.  The  [Kc]  eontains  the  first  derivative 
of  the  hydrostatic  strain,  dejdx,  which  contains,  in  turn,  the  second  derivative  in  the 
displacement,  u  (from  Eq.  (22a)): 


de_  d'^u 
dx  ^  dx'^ 


-I-  A2 


dcL 

dx 


(34) 


The  presence  of  the  second  order  derivative  in  u  would  normally  require  the  use  of 
(7^  continuous  elements  in  order  for  u  to  satisfy  element  interface  compatibility  requirements 
[16].  To  avoid  this  complication,  the  values  of  wand  cl  from  the  previous  time  step  are  used 
to  approximate  dejdx  for  the  current  time  calculations. 

The  integral  expressions  in  Eqs.  (31)  through  (33)  use  interpolation  functions 
expressed  in  terms  of  the  global  coordinate,  x.  The  code  will  be  implemented  using 
isoparametric  coordinates"*^  which  requires  replacement  of  the  functions  Giix)  and  Hj[x)  by 
an  appropriate  set  of  isoparametric  interpolation  functions. 


Isoparametric  Interpolation  Functions 

Standard  linear  and  quadratic  isoparametric  interpolation  functions,  expressed  in 
terms  of  the  local  coordinate  r  (  —  1  <  r  <  1)  are  given  by  [17]: 

9i{'r)  =  P2(r)  =  ^(l  +  r)  (35) 

/ii(r)  EE  -  r),  h2{r)  =  {l  ~  r^) ,  /r3(r)  ee  ^  (r^  +  r) 


Tlie  transformation  from  global  to  local  coordinates  is  isoparametric  in  displacement  and  superpararnetric  in 
concentration.  The  term  isoparametric  will  be  used  here  to  refer  to  the  local  coordinate  parametrization  of  the 
element  geometry  which  extends  from  - 1  at  the  left-hand  end  of  the  element  to  -t-l  at  the  right-hand  end. 
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For  an  element  with  the  global  node  locations,  Xi,  the  correspondence  between  the  global 
coordinate,  x,  and  the  local  coordinate,  r,  is  given  by  the  transformation: 

x=  [hj{r)\{xj}  (36) 


Equations  (31)  through  (33)  can  now  be  expressed  in  terms  of  the  local  r  coordinates  via  the 
following  substitutions: 


where: 


{Hj{x)}  ^  {hjir)},  {Gj(2;)}  ^  {pi(r)} 


dgijr)  ] 
dr  j 


[J]^ 


dx 

dr 


dhj(r) 

dr 


= 


iari  -  (2r)x2  + 


(37) 


(38) 


is  the  “scalar”  Jacobian  transformation  matrix,  J,  with  determinant  |  J  |  =  J,  and  inverse 
[  =  J.  Using  Eqs.(36)  through  (38)  in  Eqs.  (29),  (30),  and  (33)  yields  the  following 

relations: 


[CJ  =  A  j  {Sz{T)}lgi{r)iJ  dr 

\K„\  ^  |0| 


(39) 

(40) 


4+1 


[Ku 


[Kc]  ^ 


A, 

=  Aq 

n+l 

n 

eff 

-1 


BxA, 


Ae  D 


J-i 

/: 

dgi{r 

dr 


r  dhj{r)  1 

dhj{r) 

\  dr  j 

dr 

dr 


{B1A2  —  B2) 

dgijr 
dr 


dhjir) 

dr 


J 

[5j(r)J  dr 


[Re] 


{-Ru}  =  Af, 


r'+l 


{h,{r)}F,  -  (B3  -  B,As) 


AeJl  {gti'^)} 
1 


+1 


J 


-1 
dhj{r) 


dr 


(41) 


J  dr  +  Aeaj:{hj{r)} 


+1 

^1 


and  de/dx  in  [Kc]  has  been  replaced  with  {de/dr)/J  via  use  of  the  chain-rule  of 
differentiation. 


Gauss-Legendre  Numerical  Integration 

The  above  integrals  are  evaluated  using  a  Gauss-Legendre  numerical  integration 
scheme.  The  variable  r  occurs  as  a  3rd  degree  quantity  in  the  expression  for  [Ky^c].  A  two- 
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point  integration  using  Gauss-point  locations,  =  ±  l/\/3 ,  and  Gauss  weights,  Wk  =  1-0 
is  therefore  selected  for  use  in  the  numerical  calculations  [16,17]: 

2 

[CJ  =  Y,AeWt  J(rt){g.{n)}  L<;i(rt)J  (42) 

fc=l 


^[0] 

f  dhj{rk)  \ 

dhj{rk) 

1  dr  ] 

dr 

[K^]=^AeWkiBiA2~B2)^ 

dgiivk) 


k=i 


dhj{rk) 

dr 


lgiin)\ 


(43) 


j  _  ^  A^Wk  Deff  /  /  dgi{rk) 


dr 


dr 


de  \  dgi{rk)\  ,  , 


{B,}  =  -  A,Jl  {Si{r)} 

{Rn}  =  f  J {rk)Fx{kj{rk)}  -  (B3  -  BiAz) 


+1 


2 

r 

fc=i 


-1 

dhjjrk)]' 

dr  j 


-4-  Aecr:,{hj{r)} 


(44) 

+1 

-1 


Finite  Element  Equations 

The  matrix  finite  element  equations  given  by  Eq.  (29)  are  rewritten,  following 
reference  [16],  in  the  form; 

[C(r;0)]{h}g  +  [K{ve)  =  {R{te)}  (45) 

where  {-u}  is  the  vector  of  nodal  degrees  of  freedom  and  ^  (0  <  0  <  1)  parameterizes  the 
time  integration  scheme  via  the  following  definitions: 


t0  ~  tji  0 

{v]g  =  (1  -6>){i;}„  +  6'{u}„+i 

r  -  _  {^}n+l  -  Mn 

=  - 


Af 


(46) 


For  0  =  0  and  a  lumped  capacitance  matrix,  the  algorithm  is  explicit;  for  0  =  ^ ,  the 
algorithm  is  Crank-Nicolson;  for  0  =  |  the  algorithm  is  Galerkin;  and  for  0=1,  the 
algorithm  is  the  backward  difference. 

The  coupled  temperature-displacement  solver  routine  in  ABAQUS  is  used  to  solve 
the  fully  coupled  system  of  transport  equations  represented  by  Eq.  (45).  This  particular 
ABAQUS  routine  uses  the  backward  difference  algorithm  for  time  integration.  Substituting 
0=1  into  Eqs.  (46)  gives; 
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(47) 


{«}»=!  =  {*}„+! 

which,  when  substituted  into  Eq.(45)  yields: 

[C(Un+l)] 


—  ^n+l  —  tji  At 
{^^>0=1  =  {^}n+l 

{^}n+l  -  {^}r 


At 


[fC{Vn+i)]  + 


At 


{u} 


n+l 


[C{Vn+l)] 

At 


{^}n  +  {'^(^n+l)} 


(48) 


If  [C]  and  [/C]  are  independent  of  the  degrees  of  freedom  {u},  then  the  problem  is  linear,  and 
the  equations  may  be  solved  directly  for  via  standard  linear  systems  solver  routines. 

On  the  other  hand,  if  [C]  or  [1C]  is  a  function  of  v,  then  Eq.  (48)  is  non-linear  and  must  be 
solved  using  more  specialized  techniques.  One  of  the  techniques  used  by  ABAQUS  is  the 
Newton-Raphson  method.  It  is  described  below. 


Non-Linear  Solutions  via  Newton-Raphson 

Assume  that  is  known  and  we  wish  to  determine  First,  define  the 

“residual”  vector  {/(u„+i)}: 


{f{vn+i)}  =  - 


[/C(u„+i)]  -F 


[C(Un-n)] 

At 


{u} 


+  W„  +  {«(«„+!)} 


(49) 


where  {f{vn+i)}  —  {0}  for  a  which  is  a  solution  to  Eq.  (48).  Defining  as  the 

iterated  approximation  to  the  actual  solution,  leads  to  the  following  definition  for 

the  {i  -F  1)®^  iterated  approximation: 

(50) 

where  is  a  correction  vector.  This  correction  vector  { Au})(^\  can  be  determined  by 

expanding  {f{vn+i)}  in  a  Taylor's  series  approximation  about  the  point  retaining 

only  the  zeroth  and  first  order  terms,  and  then  setting  the  resulting  expression  equal  to  zero: 


~  {/K+i)}  + 


d{v}n^i 


{Au} 


iH-1 

n+l 


{0} 


(5i: 


w’4.1 


Now, 


8{/«+i)} 

3{„} 


n+l 


[^(++1)]  + 


At 


)] 


[C'(++i)]  [C"(++i)] 


At 


At 


(52) 
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where  we  have  defined: 


Now  define: 


then: 


[C'(<«)]  - 
[C"(<«)]  - 


S{v}Li 


g[C(°fi)] 

a[c(4+i)] 


{4fi 

{< 


[Ac'(4+i)l  ^  [c'{4+i)]  -  [c"(<+i)] 


[K{<+i)]  + 


[c(4-n)] 

At 


[K'{4«)]  + 


[AC'fe)] 


At 


(53) 


(54) 

(55) 


A  simplification  used  in  the  numerical  computations  is  to  assume  that  [/C']  and  [AC'] 
are  approximately  zero.  This  results  in  significant  computational  savings  but  reduces  the 
convergence  speed  for  the  interative  solution.  Eq.  (55)  defines  the  5  x  5  “Jacobian”  matrix 
denoted  in  ABAQUS  by  “AMATit^A”. 


Re-ordering  the  Degrees  of  Freedom 

The  ordering  of  the  degrees  of  freedom  (dof)  in  the  system  matrix  equation,  Eq.  (29) 
or  (45),  violates  the  ABAQUS  convention  which  groups  the  degrees  of  freedom  by  node 
[18].  The  current  layout  of  [K.  ]  in  Eq.  (45)  is  given  by: 


‘  IKc] 

\Kcu\  ‘ 

1  lKc\ 

|01  1 

IA'd  . 

!  ~ 

L  [Kyc] 

lA'.l  J 

K^2 

0 

0 

0 

K22 

0 

0 

0 

^^VjC 

^12 

u 

^21 

^ILC 

K22 

K'21 

K22 

if  23 

u 

^31 

^UC 

uc 

K^i 

j. 

K^2 

if  33 

(56) 


a  non-sparse  block  matrix.  Rearranging  the  order  of  the  dofs  to  conform  with  the  ABAQUS 
convention  requires: 


{v}  =  { 


Cl 

Ul 

U2 

C3 

U3 


(57) 
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This  reordering  gives  the  new  element  stiffness  matrix  layout: 


K? 

0 

0 

K? 

0 

KS: 

■*-^u 

^12 

u 

KS 

CO 

rrS 

K-21 

u 

if22 

u 

if  22 

u 

(58) 

K? 

0 

0 

Kf 

0 

if  21 

u 

if  22 

if  22 

The  capacitance  matrix  must  also  be  altered  to  reflect  the  new  ordering  given  by  Eq.  (57). 


ABACUS  User  Element  Subroutines 

ABAQUS  executes  a  Fortran  subroutine  named  UEL  for  each  “user  defined”  finite 
element  in  the  model.  Current  values  for  the:  1.  material  properties;  2.  total  and  incremental 
nodal  degrees  of  freedom;  3.  time  incrementation  parameters;  and  4.  user-defined  state 
variables  (i.e.,  the  dilatational  strain  and  axial  stress  at  the  Gauss  integration  points; 
extrapolated  axial  stress  at  the  element  boundaries;  the  mass  flux  at  the  center  of  the  element; 
and  the  Gauss  point  locations)  are  passed  from  the  main  ABAQUS  code  into  the  UEL. 
Depending  on  the  exact  stage  in  the  time  increment,  the  subroutine  UEL  must  return  some 
combination  of  the:  “Jacobian”  matrix  {AMATRX)\  right-hand  side  vector  (RHS)',  and 
updated  values  of  the  state  variables. 

From  Eq.(5 1),  we  have: 


(.)U, 

(59) 

or 

AMATRX{Avy;^l^=  -  RHS 

(60) 

where 

AMATRX  »  y  [C«+,)]  +  UU+l)] 

(61) 

and 

RHS  =  {K}  - 

(62) 

On  return  from  subroutine  UEL,  ABAQUS  assembles  the  AMATRX  and  RHS 
from  each  element  into  the  global  matrix  equation: 

lAMATRX]a{Avy:^\  =  {RHS}a  (63) 


and  adds  contributions  from  concentrated  loads  into  the  RHS  array.  ABAQUS  solves  Eq. 
(63)  for  the  incremental  correction  { using  standard  solution  techniques.  The  solution 
process  is  repeated  until  the  residual,  that  is,  the  {RHS}q  vector,  is  smaller  than  some 
specified  tolerance,  at  which  point  the  solution  is  accepted  as  correct.  The  tolerances  used 
with  this  UEL  subroutine  must  typically  be  set  in  the  ABAQUS  input  deck,  since  the 
residuals  for  the  displacement  and  concentration  variables  generally  show  many  orders  of 
magnitude  difference. 


15 


MODELING  APPLICATIONS 


A  variety  of  one-dimensional  hydrogen  transport  problems  have  been  used  to  explore 
the  differences  between  the  fully  coupled  transport  theory,  described  in  this  paper,  and 
classical  SAD  theory.  Analytical  and  finite  element  solutions  for  the  steady-state  distributions 
of:  hydrogen,  axial  stress,  axial  and  dilatational  strains,  and  the  axial  displacement  have  been 
obtained  for  a  (10  cm  x  1.0  cm^)  cylindrical  rod  of  4340  steel  subjected  to  various  boundary 
conditions  and  applied  body  forces.  Plane  stress  conditions  are  assumed  for  all  problems. 

The  boundary  conditions  consist  of  concentration  or  mass  flux  and  displacement  or 
load  (stresses)  at  each  end  of  the  rod.  The  analytical  solutions  are  obtained  using  the  Maple 
symbolic  computation  program,  and  the  numerical  solutions  are  obtained  using  ABAQUS 
with  our  custom  Fortran  user  element  subroutine.  The  problems  examined  both  analytically 
and  numerically  are  summarized  in  Table  2.  Other  problems  that  have  been  examined 
analytically  are  documented  in  Appendix  A. 


Case  # 

Deformation  Boundary  Conditions 

Diffusion  Boundary  Conditions 

Body  Force 

#  Elements 

la 

u{LHS)  =  0.0 

PPRHS)  =  0.0 

ciiLHS)  =  0.0 

cl{RHS)  =  10-*^ 

0 

10 

2a 

u{LHS)  =  0.0 

u{RHS)  =  0.0 

ciiLHS)  =  0.0 

clIrHS)  =  10"® 

0 

10 

3(LT) 

u{LHS)  =  0.0 

PPRHS)  =  0.0 

Jl{LHS)  =  0.0 

cl{RHS)  =  10-'^ 

200 

3(HT) 

u{LHS)  =  0.0 

PPRHS)  =  0.0 

Jl{LHS)  =  0.0 

Table  2:  Displacements,  u,  are  specified  in  [m];  loads,  P^,  in  [N]-,  concentrations,  cl,  in 
[gH/gFe]\  mass  flux,  Jl,  in  [m/s];  and  body  force,  Fx,  in  [N/m^].  Case  3a  (LT) 
and  (HT)  correspond  to  low  and  high  trapping  (1  -I-  c^j^Kr  =  20  and  500). 


Case  1  and  2  problems  were  used  to  gain  insight  into  the  differences  between  the  fully 
coupled  theory,  SAD  theory,  and  classical  diffusion  theory.  They  also  proved  useful  as 
benchmark  problems  for  debugging  and  verifying  the  user  element  subroutine. 

Case  3  was  posed  in  order  to  better  assess  the  influence  of  the  hydrogen  induced 
deformations,  which  are  not  accounted  for  in  classical  SAD  theory,  at  a  crack-like  stress 
singularity.  A  square-root  singular  stress  was  introduced  in  the  rod  by  subjecting  it  to  the 
fictitious  body  force: 


15  X  10^ 
^/(xTep 


(64) 


The  variable  e  is  a  small  constant  (2.0  x  included  to  prevent  inadvertent  Fortran 

errors  at  x  =  0.  Substituting  this  into  Eq.  (18)  and  integrating  results  in  the  square-root 
singular  stress; 


30  X  10® 


(65) 


The  numerator  of  Eq.  (65)  is  equivalent  to  a  stress-field  intensity  factor,  if,  which  means  that 
we  have  adopted  a  stress-field  K  value  of  30  [MPa^Jm]  for  these  Case  3  problems. 

The  introduction  of  this  singularity  into  the  1~D  rod  problem  resulted  in  some 
interesting,  but  unexpected,  behavior  in  the  mathematical  solution  for  the  concentration  as  a 
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function  of  x.  We  found  that  the  concentration  becomes  a  multi-valued  function  of  a:  as  the 
singularity  at  a;  =  0  is  approached.  The  exaet  point  at  which  the  concentration  becomes 
multi-valued  is  predictable  and  depends  only  on  material  constants.  Various  features  of  the 
analyticeil  solution  will  be  discussed  in  the  following  Results  and  Discussion  sections,  but  as 
a  consequence,  we  have  had  to  modify  the  rod  geometry  in  our  Case  3  numerical  analysis  so 
that  the  left  hand  boundary  starts  at  a;  =  4.0  x  10“^  [m]  rather  than  a;  =  0.  This  avoids  the 
numerical  problems  associated  with  multi-valued  concentrations. 

The  material  properties  used  in  the  analytical  and  numerical  analyses  are  given  below 
in  Table  3: 


Property 

Value 

Mass  Density,  p 

7.8  [p/cm^] 

Temperature,  T 

293  [K] 

Lattice  Diffusion  Coefficient^  Dr 

1  X  10“^  [cvn? /s] 

Partial  Molar  Volume  of  Hydrogen^,  Vjj 

2.0  [crn? /mol] 

Saturation  Trapping  Concentration^,  Cr 

2  X  10-^2  iQ-i  [gE/gPe] 

Reversible  Trap  Binding  Enthalpy^,  Hb 

3.3  to  30  [kJ /mol] 

Kr  =  exp{^) 

4  to  2.2  X  10^ 

Trapping  Factor,  (1  -F  CrKr) 

20  and  500 

Molecular  Weight  of  Hydrogen,  Mr 

1.00797  [g/mol] 

Modulus  of  Elasticity,  E 

200  [Gpa] 

Poisson's  Ratio,  u 

0.3 

Reference  Concentration,  cq 

OlgH/gFe] 

Table  3:  Material  property  values  used  in  the  Maple  and  finite  element  analyses. 


RESULTS 

The  results  are  presented  in  two  subsections.  The  first  subsection  corresponds  with 
the  Case  la  and  2a  problems,  and  the  second  subsection  corresponds  with  the  Case  3 
problem.  Each  subsection  is  further  divided  into  parts  describing  the  analytical  and  finite 
element  solution  procedures  and  description  of  results. 


Case  1  &  2  Problems 

Analytical  solutions  to  the  1-D  problem  can  be  obtained  by  solving  Eq.  (21)  for 
concentration.  For  the  convenience  of  the  reader,  Eq.  (21)  is  repeated  below: 


dcL 

dt 


pVlk 

Ml^T 


(1  +  c%^Kr)cl 


) 


dcL 

dx 


Vs  Deff 
3KT 


FxCL 


(21) 


’  Approximate  value  taken  for  a-Fe  from  Figure  12.4  of  reference  [19]. 

^  Approximate  value  taken  from  Section  1II.A.2  of  reference  [6]. 

^  Range  of  values  obtained  from  Table  I  of  Section  III.B.l  of  reference  [6]  with  Hb  <  30  [kJ /mo/]. 
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This  is  a  non-linear  diffusion  equation  with  a  concentration  dependent  diffusion  coefficient. 
Under  steady  state  conditions  the  equation  simplifies  to: 


1 


pvl 


k 


Ml^T 


(i  +  c{,/r«)cil^  + 


dx  3KT 


FxCl  =  Constant 


(66) 


where  the  constant  is  proportional  to  the  mass  flux  that  obtains  under  steady-state  conditions. 

For  Cases  1  &  2,  the  body  force,  F^,  is  also  taken  to  be  equal  to  zero,  so  that  the 
governing  differential  equation  simplifies  to: 


This  equation  can  be  integrated  to  give  cl{x),  and  once  ci{x)  is  known,  Eq.  (18)  and  (22b) 
can  be  combined  to  give: 


de  B2  dcL{x) 

dx  Bi  dx 


(68) 


This  can  be  integrated  using  the  known  function  cl{x)  to  give  the  dilatational  strain,  e,  and 
the  axial  strain  and  axial  stress  can  then  be  obtained  directly  from  Eqs.  (22a, b): 


du  e{x) 
dx  Ai 


Ai 


CLix)  -t- 


(69) 


ax  =  Bie{x)  -  B2Cl{x)  -f  Bs 

Finally,  the  displacement,  u,  can  be  obtained  by  integrating  Eq.  (69a).  The  constants  of 
integration  in  the  expressions  for:  ciix),  Jl,  e{x),  ex{x),  ax{x),  and  u{x)  can  be  determined 
using  the  given  boundary  data. 

The  above  steps  were  performed,  in  this  work,  using  the  Maple  V  symbolic 
computation  program  on  a  Sun  SPARCIO  workstation.  The  general  results  are  given  below: 


cl{x)  =  Cl X  +  Ci^/l  -  C2  X 

(70) 

:  Cs  a;  +  (Q  -  C5  x)  \/l  -  672  X'  -  674 

(VI) 

e{x)  =  Cq-  C-jyJ \~C2x 

(72) 

(^x  =  C's 

(73) 

II 

(74) 

where  the  C^,  lE  are  constants  that  depend  on  the  boundary  conditions  and 

material  property  values.  Documentation  of  the  Maple  analyses  is  given  in  Appendix  A. 
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For  the  ABAQUS  finite  element  analyses,  the  10  [crn\  rod  is  discretized  using  ten 
elements  of  length  1  [cm].  The  initial  concentration  and  displacement  are  specified  as  zero 
throughout  the  rod,  and  the  boundary  conditions  are  as  indicated  in  Table  2,  and  in  the 
figures  below.  A  “coupled  temperature-displacement;  steady-state”  ABAQUS  analysis  is 
performed  with  an  initial  time  increment  of  5  x  10“^  [s],  a  total  step  time  of  1.0  [s],  and  a 
maximum  allowable  increment  of  0.5  [s].  The  residual  magnitude  for  the  concentration  dof  is 
significantly  smaller  than  the  residual  for  displacement  dof.  A  separate  convergence  criterion 
for  the  concentration  (temperature  in  ABAQUS)  dof  is  therefore  adopted.  The  initial  time- 
average  flux  for  convergence  of  the  concentration  dof  is  set  at  5.0  x  10“^^  (see  the  AUM 
[n;9. 6.2-1]).  The  input  decks  for  the  Case  la  and  2a  analyses  are  given  in  Appendix  C. 

Case  la  and  2a  rod  geometries  and  boundary  conditions  are  shown  in  Figures  3  and  4. 
Figures  5  through  11  show  plots  of:  cl{x)‘,  the  difference  between  the  linear  concentration 
distribution  that  obtains  from  classical  SAD  and  diffusion  analysis  and  cl{x);  e{x);  u{x)', 
and  crx(a^).  Keep  in  mind  while  examining  these  plots  that  e{x),  e^ix),  u{x),  and  a^ix)  are 
identically  zero  for  the  classical  SAD  or  diffusion  analyses. 


f 


Cl(0)=0 

u(0)=0 


10  cm  ■ 
A=I  cm^ 


- ^ 

u 

Cl(0.10)=W^ 

<J,(0.10)=0 


Cl(0)=0 

u(0)=0 


■  10  cm  ■ 
A=1 cm^ 


I 


; 


Cl(0.10)=10-^ 

u(0.l0)=0 


Figure  3:  The  rod  geometry  and  boundary  Figure  4:  The  rod  geometry  and  boundary 
conditions  for  Case  la.  conditions  for  Case  2a. 


Figure  5:  Analytical  and  finite  element 
concentration  predictions  for  Cases  la 
and  2a  using  the  fully  coupled  theory. 


Figure  6:  Difference  between  classical 
diffusion  or  SAD  and  the  fully  coupled 
concentrations  (i.e.,  —  cl{x)  ). 


Figures  5  and  6  show  the  concentration  and  concentration  difference,  which  are 
identical  for  the  Case  la  and  2a  problems,  as  a  function  of  position  along  the  rod.  The 
concentration  difference  is  defined  as:  10“^ a;  —  cl{x)  where  is  the  concentration 

distribution  that  obtains  for  the  SAD  and  classical  diffusion  theories.  The  difference  is 
maximum  at  the  center  of  the  rod,  but  is  very  small  at  5.5  parts  per  billion  (ppb).  The 
difference  between  the  analytical  and  finite  element  predictions  is  less  than  0.05  ppb. 
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Distance,  x  [cm] 

Figure  7:  Fully  coupled  dilatational  strain 
prediction  for  Case  la.  The  FE  predictions 
are  given  at  Gauss  integration  points. 


Distance,  x  [cm] 

Figure  8:  Fully  coupled  displacement 
prediction  for  Case  la.  The  FE  predictions 
are  given  at  the  nodes. 


Figures  7  and  8  show  the  dilatational  strain  and  the  axial  displacement  experienced  by 
the  rod  for  the  case  la  conditions.  The  rod  is  traction  free,  and  there  are  no  applied  body 
forces,  so  by  Eq.  (18),  the  stress  in  the  rod  must  he  zero.  By  way  of  verification,  we  note  that 
the  FE  analysis  (not  shown)  also  predicted  a  zero  stress  throughout  the  rod.  The  maximum 
dilatational  strain  and  axial  displacement  occur  at  the  free  end  of  the  rod  with  magnitudes  of 
~  310  [/im/m]  and  5 .  2[iim]  respectively. 


Figure  9:  Fully  coupled  dilatational  strain 
prediction  for  Case  2a.  The  FE  predictions 
are  given  at  the  Gauss  integration  points. 


Distance,  x  [cm] 

Figure  10:  Fully  coupled  displacement 
prediction  for  Case  2a.  The  FE  predictions 
are  given  at  the  nodes. 


Figures  9  and  10  show  the  dilatational  strain  and  axial  displacement  for  Case  2a.  The 
rod,  stress  free  in  the  absence  of  hydrogen,  tries  to  expand  when  the  hydrogen  is  introduced. 
A  uniform  axial  compressive  stress  of  ~  10.4  [MPa]  (see  Figure  11)  is  introduced  because 
of  the  zero  displacement  boundary  restraints  at  the  walls.  The  dilatational  strain  is  positive 
and  maximum  at  the  RH  boundary  of  the  rod,  and  small,  but  negative  at  the  LH  boundary. 
The  axial  displacement  is  negative  throughout  the  rod  indicating  a  leftward  movement  of  the 
rod  material.  The  maximum  displacement  of  Ri  —  1.3  [/xm]  occurs  at  the  center  of  the  rod. 
Recalling  the  definition  of  axial  strain,  =  du/dx,  we  see  that  it  is  negative  in  the  left  half 
of  the  bar,  positive  in  the  right  half,  and  zero  in  the  middle.  The  maximum  strain  (  ~  ±  50 
[/re])  occurs  at  each  end  of  the  rod  (see  the  figure  on  page  A-2a-14  of  Appendix  A). 
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Distance,  x  [cm] 

Figure  11:  Fully  coupled  axial  stress  prediction  for  Case  2a.  The  FE  predictions 
are  given  at  the  Gauss  integration  points. 

Case  3  Problems 

The  governing  differential  equation  for  the  Case  3  problem  is  obtained  from  Eq.  (66) 
by  substituting  in  for  the  applied  body  force,  F^: 


•  ABAQUS 
-  Analytical 


1  - 


pVsk 

Ml^T 


(1  +  Kr)cl 


dcL  ^^5  (15  X  106) 


dx 


+ 


3RT 


Cl  =  Constant 


(75) 


Analytical  solutions  to  this  equation  are  obviously  more  difficult  to  obtain  than  in  the 
previous  two  cases. 

The  LHS  of  Eq.  (75)  is  directly  proportional  to  the  mass  flux  Jl  \  the  mass  flux  is 
therefore  constant  throughout  the  rod.  The  Case  3  problem  under  study  imposes  a  zero  mass 
flux  boundary  condition  on  the  LH  boundary.  The  constant  in  Eq.  (75)  can  therefore  be  set 
equal  to  zero,  leading  to  the  following  governing  equation: 


pVlk 

MlRT 


(1  +  c; 


dx 


3Rr 


Ci  =  0 


(76) 


This  must  be  solved  for  cl  as  a  function  of  x  (i.e.,  for  cl{x)). 

An  interesting  observation  regarding  Eq.  (76)  can  be  made.  As  cl{x)  increases  from 
some  vanishingly  small  value,  the  coefficient  of  the  derivative  term  will  go  from  positive  to 
negative,  passing  through  zero  on  the  way.  When  the  coefficient  equals  zero,  the  derivative 
term  drops  out  and  we  are  left  with  the  equation; 


E,  (15  X  10^) 
3RT  Vx3 


(77) 


This  equation  cannot  be  satisfied  because  cl  is  not  zero,  x  is  finite-valued,  and  the  rest  of  the 
variables  are  either  non-zero  constants  or  material  properties.  A  mathematical  solution  to  the 
problem  can  only  be  obtained  by  letting  dcL/dx  ^  oo  as: 


I 

I 
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pFf  fca+c^Ki?) 


(78) 


cl{x) 


Allowing  this  results  in  multi-valued  concentration  solutions  to  Eq.  (76);  Eq.  (78)  defines  the 
point  at  which  the  solution  becomes  multi-valued.  Since  multi-valued  concentrations  are  not 
physically  realistic,  the  assumptions  made  in  the  derivation  of  the  fully  coupled  transport 
equations  must  be  re-examined.  This  is  done  in  the  following  Discussion  section. 

The  solution  to  Eq.  (76)  is  obtained  by  integration  using  Maple  (see  Appendix  A): 


cl(x) 


/ 


V 


exp(  -  Cu  +  ^)  '' 


Cm 


) 


(79) 


W{x)  is  Lambert's  W  function"^,  and  the  Gi,  i  G  {10, 11, 12}  are  constants  related  to  the 
material  properties  and  boundary  conditions.  This  equation  is  multi-valued  in  x,  but  it  can  be 
inverted  to  give  a;  as  a  single- valued  function  of  c^: 


x{cl) 


{Cnf 


§  -  ln{cL)  -  Cu 


(80) 


The  stress  field  is  obtained  by  integrating  Eq.  (18)  with  the  applied  body  force 
substituted  in  for  F^,  yielding: 


Gxix)  - 


30  X  10® 


(81) 


The  dilatational  strain  can  be  written  in  terms  of  and  ci  using  Eq.  (22b): 

e{x)  =  ^  {(yx{x)  +  B2  cl{x)  -  B3)  (82) 

-Dl 

Similar  operations  can  be  performed  on  Eq.  (22a)  to  determine  du/dx  which  can  then  be 
integrated  (analytical  integration  may  not  be  possible)  to  obtain  the  displacement,  u{x). 

The  ABAQUS  analysis  for  Case  3  requires  significantly  smaller  elements  than  the 
Case  1  and  2  analyses,  particularly  near  the  singularity.  The  rod  is  discretized  into  200 
elements  of  length  li  =  0.104/0.94*”^  [pm]  where  the  first  and  smallest  element,  li  =  0.104 
[/xm],  is  placed  at  the  left  hand  end  of  the  bar,  x  =  4  x  10”^ [cm].  The  0.94  factor  in  the 
denominator  is  known  as  the  element  “bias”  in  ABAQUS.  A  “coupled  temperature- 
displacement;  steady-state”  analysis  is  used  with  an  initial  time  increment  of  1.0  x  10”'^  [s], 
a  total  time  of  1.0  [s],  and  a  maximum  time  increment  of  5.0  x  10”^  [s].  The  initial 
displacements  in  the  rod  are  taken  as  zero,  but  an  initial  uniform  concentration  equal  to  the 
RH  boundary  concentration  of  1  x  lO”"^  [gH/gFe]  is  assumed.  To  match  this  initial 
condition  in  the  analysis,  the  RH  boundary  concentration  is  applied  as  a  step  rather  than  a 


Lambert's  W  function  satisfies  the  equation:  W{x)  x  exip(W{x))  =  x.  Additional  information  can  be  found 
using  the  interactive  Maple  V  help  program. 
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ramp  function.  Providing  an  initial  concentration  resulted  in  a  more  rapid  convergence  of  the 
solution  to  the  steady-state  values.  The  residual  magnitude  for  the  concentration  dof  is 
significantly  smaller  than  the  residual  for  displacement  dof.  A  separate  convergence  criteria 
for  the  concentration  (temperature  in  ABAQUS)  dof  was  therefore  adopted.  The  starting 
time-average  flux  for  convergence  of  the  concentration  dof  is  set  at  5.0  x  10“^^  (see  the 
AUM  [n;9.6.2-l]).  The  input  deck  for  the  Case  3  analysis  is  given  in  Appendix  C. 

The  Case  3  rod  geometry  and  boundary  conditions  are  shown  in  Figure  12.  Figures  13 
through  17  show:  cl{x)\  ln{ci,{x))  —  constant  which  illustrates  the  different  concentration 
singularities;  e{x)]  u{x)-,  and  (Tx{x).  Plots  are  given  for  the  fully  coupled  theory  under  low 
and  high  trapping  conditions,  for  SAD  theory,  and  in  many  cases,  for  Fx  =  0.  The  finite 
element  results  are  plotted  for  every  20th  element. 


Body  Force, 


u(4.0xl0-^)=0  (J.(0.10)=0 

Figure  12:  The  rod  geometry,  boundary 
conditions,  and  applied  body  force  for  the 
Case  3  problem. 


Distance,  x  [cm] 

Figure  13:  Concentration  predictions  for 
Case  3.  The  SAD  results  lie  under  the  LT 
(20)  curve  of  the  fully  coupled  theory. 


Figure  14:  Concentration  singularities.  Figure  15:  Dilatational  strain  for  Case  3 
The  SAD  &  LT-20  curves  are  coincident.  using  the  fully  coupled  and  SAD  theories. 


Figures  13  and  14  show  the  predicted  concentrations  for  the  Case  3  problems  using 
fully  coupled  and  SAD  theories.  The  SAD  predictions  are  made  using  the  classic  expression: 


cl{x)  =  fto  exp 


1/5  1  30  X  10^^ 

— ^  X  -  X  - ^ 

MT  3  y/x 


(83) 
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The  fully  coupled  model  predicts  slightly  larger  concentrations  than  the  SAD  model,  with 
increasing  differences  as  the  singularity  is  approached  and  as  the  degree  of  trapping 
increases.  Figure  14  shows  that  the  singularity  for  the  fully  coupled  concentration  is  more 
severe  than  the  exp{l|^/x)  singularity  of  the  SAD  model,  at  least  for  the  high  trapping  case. 


Distance,  x  [cm] 

Figure  16:  Nodal  displacement  curves  for 
the  FE  analysis  of  Case  3  for  the  fully 
coupled  and  SAD  theories. 


Distance,  x  [cm] 

Figure  17:  Gauss  point  stresses  with  a 
least  squares  line  fit  showing  the  required 
straight  line  behavior  with  a  —  1/2  slope. 


Figures  15  and  16  illustrate  the  dilatational  strains  and  nodal  displacement  curves.  As 
with  Cases  1  and  2,  the  fully  coupled  model  predicts  larger  displacements  and  dilatational 
strains  throughout  the  rod.  Again,  the  difference  between  the  fully  coupled  and  SAD  model 
predictions  increase  with  the  degree  of  trapping.  The  zero-body  force  strains  and 
displacements  are  also  shown  for  comparison  with  the  zero  valued  strains  and  displacements 
that  obtain  for  the  SAD  and  classical  diffusion  model.  Figure  17  shows  the  FE  calculated 
Gauss  point  stresses;  these  match  the  expected  behavior. 


DISCUSSION 

The  above  three  rod  problems  illustrate  the  differences  between  the  fully  coupled  and 
classical  SAD  theory  under  steady-state  conditions  (additional  results  can  be  found  in 
Appendix  A).  The  results  show  that  the  concentration  differences  are  generally  small,  but 
grow  in  the  region  very  near  to  the  singularity.  The  deformation  differences  are  a  bit  more 
pronounced,  especially  in  Cases  1  and  2  where  the  boundary  and  body  force  loadings  are 
absent.  All  of  the  fully  coupled  results  are  dependent  on  the  degree  of  trapping. 

The  results  also  showed  that  accurate  finite  element  solutions  are  possible  for  the 
fully  coupled  transport  theory  using  ABAQUS  with  custom  user  element  subroutines.  The 
experience  gained  during  the  development  and  application  of  this  1-D  user  element  routine  is 
proving  to  be  very  useful  in  the  ongoing  development  of  the  2-D  user  element  subroutine. 

The  dependence  of  the  concentration  and  deformation  distributions  on  the  trapped 
hydrogen  may  be  useful  in  the  development  of  new  “Gorsky  effect”  experiments  for  trapping 
characterization.  Perhaps  the  time  dependent  displacement  at  the  free  end  of  a  cantilevered 
rod  can  be  related  to  some  transport  or  trapping  parameter  of  interest.  Transient  Case  1  type 
problems  are  probably  be  most  useful  in  this  regard. 
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Regarding  the  multi-valued  concentrations  that  appear  in  the  mathematical  analysis  of 
the  Case  3  problem,  the  values  of  cl  satisfying  Eq.  (78)  for  the  4340  steel  considered  are; 
2.3  X  10~®  and  9.3  x  10“^  [gH/gFe]  for  the  low  (LT)  and  high  (HT)  trapping  conditions, 
respectively.  The  total  internal  hydrogen,  in  mass  fraction  concentration  units^,  is  given  by 
Eq.  (6):  Cfotat  ~  4.7  x  10“^  +  cf  Now,  this  is  a  very  large  concentration 

compared  with  the  solubility  of  hydrogen  in  pure  iron  at  room  temperature  and  1  [atm] 
pressure  (ctotai  ~  2  x  10“^  [gH/gFe]  or  1  x  10~'^  [H / Fe]).  It  leads  us  to  question  the 
assumptions  made  regarding  the  magnitude  of  the  concentration  in  the  development  of  the 
fully  coupled  model.  The  three  major  assumptions  include:  1.)  “infinite”  dilution  of  the  total 
hydrogen  in  the  mixture;  2.)  ideal  behavior;  and  3.)  material  properties  that  are  independent 
of  the  hydrogen  concentration  level. 

The  magnitude  of  the  lattice  concentrations  at  the  critical  point  are  still  much  less 
than  one.  It  is  unlikely,  therefore,  that  the  assumption  of  infinite  dilution  is  playing  any  role 
in  this  particular  situation.  Extension  of  the  model  to  include  finite  concentrations,  while  still 
retaining  the  ideal  solution  assumption,  can  be  made  by  adopting  a  “reduced”  chemical 
potential  [15],  which  takes  into  account  the  blocking  of  interstitial  sites  in  the  neighborhood 
of  a  hydrogen  atom^.  Reduced  chemical  potentials  will  be  adopted  in  a  future  version  of  the 
theory  assuming  that  the  multi-valued  solutions  for  the  concentration  can  be  eliminated. 

If  we  maintain  the  infinite  dilution  assumption,  then  non-ideality  cannot  play  a  role 
because  an  infinitely  dilute  mixture  is  by  definition,  ideal.  Non-ideal  effects  are  only  possible 
in  finite  dilution  mixtures  [15],  and  the  use  of  non-ideal  expressions  in  classical  SAD 
modeling  is  almost  non-existent.  Kirchheim  and  Hirth  [20]  have  proposed  a  first  order 
extension  which  accounts  for  H-H  interactions.  The  work  by  Fukai  [21]  and  coworkers  on 
predicting  hydrogen  solubility  in  metals  under  very  high  pressures  may  also  be  of  use  in 
extending  our  model  to  include  non-ideal  effects.  The  question  still  remains;  will  the 
adoption  of  a  non-ideal  chemical  potential  result  in  governing  equations  with  single-valued 
concentrations?  We  do  not  presently  have  an  answer  for  this  question;  it  remains  to  be 
investigated  in  the  future. 

The  last  possibility  involves  the  assumption  of  constant  valued  material  parameters.  If 
the  RHS  of  Eq.  (78)  were  to  increase  at  least  linearly  with  c^,  through  some  concentration 
dependence  of  the  material  parameters,  then  the  multi-valued  solutions  will  not  occur.  A 
linear  decrease  in  p,  or  k,  or  a  square-root  decrease  in  Vg,  with  increasing  ci  levels  would 
satisfy  this  requirement.  Experimental  evidence  for  these  decreases  in  4340  steel  do  not 
appear  to  be  available  in  the  literature.  There  is  evidence,  though,  for  decreases  in  Vs  at  large 
CjT  values  for  various  other  alloys  (see,  for  example,  the  article  by  Peisl  in  [19;  pp.  53-74];  or 
Fukai  [21;  pp.  95-100].  This  possibility  will  also  have  to  be  investigated  in  the  future. 

There  remains  one  final  aspect  of  this  multi-valued  solution  dilemma  that  needs  to  be 
discussed.  That  is  the  validity  of  square-root  stress  singularities  in  the  fully  coupled  theory. 
Remember  that  this  singular  body  force  was  artificially  introduced  in  order  to  get  the  square- 
root  singular  stress.  We  have  not  yet  determined  whether  square-root  singular  stresses  will 
naturally  occur  at  the  tip  of  a  crack  in  the  fully  coupled  theory.  The  2-D  finite  element  model 
under  development  should  shed  some  light  on  this  issue. 


^  Multiplication  of  Ctotai  by  MpelMu  «  55  gives  the  mole  fraction  concentration,  Xtotai  =  2.6  x  10  '  +  55  cj. 
^  Reduced  chemical  potentials  are  also  referred  to  as  the  “Fermi-Dirac”  potentials  [20-22]. 
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SUMMARY  AND  FUTURE  RESEARCH 


The  focus  of  this  research  was  on  the  development  of  a  finite  element  code  for 
coupled  hydrogen  transport  and  trapping  in  linear  elastic  metals  for  use  in  modeling  hydrogen 
assisted  cracking  processes.  A  fully  coupled  solute  transport  model  was  developed;  a  1-D 
version  of  the  model  was  implemented  in  a  finite  element  code  via  a  custom  Fortran  “user 
element”  subroutine  for  use  with  the  ABAQUS  finite  element  program.  A  series  of  three 
simple  1-D  problems  were  posed  to  develop  an  understanding  of  the  fully  coupled  transport 
theory,  and  for  verifying  the  accuracy  and  coding  of  the  1-D  user  element  subroutine.  Steady- 
state  solutions  for  the  fully  coupled  theory,  and  for  classical  diffusion  and  stress-assisted 
diffusion  theories,  were  obtained  analytically  and  numerically  using  the  Maple  symbolic 
computation  program  and  ABAQUS.  Differences  in  the  predicted  concentrations  and 
deformations  between  the  various  theories  were  observed. 

One  of  the  problems  incorporated  a  square-root  singular  stress  as  a  “1-D  analog”  of 
the  hydrogen  transport  problem  in  planar  crack  geometries.  The  fully  coupled  predictions 
showed  slightly  higher  hydrogen  concentrations,  a  more  severe  singularity  in  the 
concentration,  larger  axial  and  dilatational  strains,  and  larger  axial  displacements,  all  of 
which  depended  on  the  extent  of  hydrogen  trapping.  The  results  indicated  that  the  hydrogen 
induced  deformations,  present  only  in  the  fully  coupled  theory,  were  more  influential  with 
regard  to  the  displacements  and  strains. 

Development  of  a  2-D  user  element  subroutine  is  ongoing.  The  initial  versions  will  be 
limited  in  scope  to  simple  linear  elastic  mixture  behavior  and  equilibrium  trapping  at 
reversible  and  irreversible  trap  sites.  Rectilinear  isoparametric  8-node  displacement/4-node 
concentration  interpolation  functions  will  be  adopted.  Extensions  of  the  model  to  include 
non-equilibrium  trapping  effects  and  plastic  crack  tip  deformations  are  planned.  An  effort  is 
also  being  made  to  interface  the  ABAQUS  code  with  our  user  element  routines  to  the  Patran 
Solid  Geometry  Modeling  program.  This  will  provide  us  with  a  convenient  means  of 
meshing  complex  2-D  geometries  and  manipulating  and  displaying  the  finite  element  results. 

After  the  2-D  code  has  been  developed,  it  will  be  used  to  calculate  deformations  and 
concentrations  in  the  crack  tip  region  of  a  metal  with  uniform  hydrogen  concentrations 
imposed  along  the  crack  walls.  Steady-state  SAD  solutions  for  this  idealized  problem  are 
available  for  comparison.  The  results  will  provide  definitive  answers  on  the  importance  of 
the  hydrogen  induced  deformations  in  crack  tip  modeling. 

A  longer  term  goal  is  the  use  of  the  2-D  code  to  help  establish  an  energy-based 
parameter  that  characterizes  the  driving  force  for  crack  growth  in  the  presence  of  a 
deleterious  environment.  This  parameter,  the  free  energy  release  rate  T ,  will  generalize  the 
classical  strain  energy  release  rate  Q  to  include  the  hydrogen  induced  deformation  energy  and 
the  “free”  chemical  energy.  It  is  defined  by: 

^  A(Externally  Supplied  Work  —  Specific  Free  Energy  of  the  Hydrogen-Metal  Mixture) 

A(Crack  Length) 

The  use  of  A"  as  a  driving  force  for  crack  growth  in  environmentally  assisted  cracking 
appears  to  be  a  novel  extension  of  the  classical  fracture  mechanics  concept.  The  advantage  of 
T  over  the  stress  intensity  factor  K  (or  A/T)  approach  will  be  its  ability  to  account  for 
loading,  environment,  and  material  effects  on  the  driving  force  for  crack  growth  in  terms  of  a 
single  variable.  The  concept  will  be  applicable  many  material-environment  crack  systems  of 
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technological  interest  including:  hydrogen  assisted  cracking  of  metals,  high  temperature 
oxidation  cracking  of  superalloys,  and  moisture  induced  cracking  of  organic  composites. 

The  magnitude  of  T  in  any  environmental  cracking  situation  will  have  to  be 
determined  by  an  analysis  of  the  deformation  and  diffusion/trapping  processes  operative  in 
the  crack  tip  region.  More  specifically,  the  deformation  state  (stresses  and  strains)  and 
chemical  state  (potentials  and  concentrations  for  each  solute  species)  of  the  mixture  will  have 
to  be  determined  as  a  function  of  the  loading  (e.g.,  a  or  Au,  R,  /,  waveform,  etc.), 
environment  (e.g.,  phase,  species,  concentrations,  T,  •pH,  potentials,  partial  pressures,  etc.) 
and  material  (e.g.,  elastic  moduli,  trapping  parameters,  solubility,  diffusion  coefficient,  etc.) 
parameters.  This  information  will  be  obtained  using:  a.)  the  fiilly  coupled  theory  to  model  the 
deformation-diffusion-trapping  processes  occurring  in  the  crack  tip  region  (governing 
equations);  b.)  an  experimentally  determined  distribution  of  absorbed  species  along  the  crack 
walls  (boundary  conditions);  and  c.)  a  method  for  solving  the  resulting  mathematical 
equations  (the  FE  code). 

Our  initial  efforts  will  be  focused  on  the  application  of  this  concept  to  hydrogen 
assisted  cracking  of  high  strength  metals.  This  system  is  ideal  in  the  sense  that  it  shows  large 
environmental  effects,  is  important  in  many  applications,  and  is  supported  by  an  extensive 
data  base.  It  also  avoids  the  complications  of  large  scale  crack  tip  plasticity.  Validation  of  the 
concept  will  require  demonstration  of  a  unique  correlation  between  the  crack  growth  rate  and 
T  (or  A.7^)  for  a  variety  of  materials  subject  to  a  variety  of  loading,  environment,  and 
material  conditions. 
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APPENDIX  A:  Analytical  Solutions  Using  Maple 

This  Appendix  contains  the  Maple  analyses  of  the  three  steady-state  rod  transport 
problems  studied  in  this  work.  All  analyses  were  performed  using  Maple  V,  Release  3,  on  a 
Sun  SPARC  10  workstation.  The  specific  cases  analyzed  are  summarized  in  the  tables  below: 


Case# 

Deformation  Boundary  Conditions 

Diffusion  Boundary  Conditions 

pRKn 

Page 

la 

u{LHS)  =  0.0 

Px(RJTS')  =  0.0 

cl{LHS)  =  0.0 

cl{RHS)  =  10-® 

19 

A-la-1 

lb 

uiLHS)  =  0.0 

P^(RHS)  =  0.0 

cl{LHS)  =  0.0 

cl{RHS)  =  10-'^ 

19 

A-lb-1 

Ic 

u{LHS)  =  0.0 

P^iRHS)  =  0.0 

cl{LHS)  =  0.0 

ciiRHS)  =  10-'^ 

499 

A-lc-1 

Id 

u{LHS)  =  0.0 

P,,{RHS)  =  0.0 

MLHS)  =  0.0 

cl{RHS)  =  10-'^ 

19 

A-ld-1 

le 

u{LHS)  =  0.0 

Pa,iRHS)  =  0.0 

MLHS)  =  0.0 

cl{RHS)  =  10-'^ 

499 

A-le-1 

Table  A-1:  Case  summary  for  rod  problem  #1.  Displacements,  u,  are  specified  in  [m];  loads, 
Px,  in  [N]\  concentrations,  cl,  in  [kgH/kgFe];  and  mass  flux,  Ji,,  in  [m/s]. 


Case# 

Deformation  Boundary  Conditions 

Diffusion  Boundary  Conditions 

CrKr 

Page 

2a 

uiLHS)  =  0.0 

uiRHS)  =  0.0 

ciiLHS)  =  0.0 

ciiRHS)  -  10-® 

19 

A-2a-l 

2b 

uiLHS)  =  0.0 

uiRHS)  =  0.0 

ciiLHS)  -  0.0 

ciiRHS)  =  10-^ 

19 

A-2b-l 

2c 

uiLHS)  =  0.0 

uiRHS)  ^  0.0 

CiiLHS)  =  0.0 

CiiRHS)  =  10-^ 

499 

A-2C-1 

2d 

uiLHS)  =  0.0 

uiRHS)  =  0.0 

JiiLHS)  =  0.0 

CiiRHS)  ^  10-^ 

19 

A-2d-l 

2e 

uiLHS)  =  0.0 

uiRHS)  =  0.0 

JiiLHS)  =  0.0 

CiiRHS)  =  10-^ 

499 

A-2e-l 

Table  A-2:  Summary  for  rod  problem  #2.  Displacements,  u,  are  specified  in  [m]; 
concentrations,  ci,  in  [kgH/kgFe];  and  mass  flux,  JTl,  in  [m/s]. 


j 

i 


Case  # 

Deformation  Boundary  Conditions 

Diffusion  Boundary  Conditions 

Body  Force 

Page 

3a 

uiLHS)  =  0.0 

P^iRHS)  =  0.0 

JiiLHS)  =  0.0 

CiiRHS)  =  10-'^ 

19 

A-3a-l 

3a 

uiLHS)  =  0.0 

P,,iRHS)  =  0.0 

JiiLHS)  =  0.0 

CiiRHS)  =  10-^ 

499 

15x10® 

A-3a-l 

Table  A-3:  Summary  for  rod  problem  #3.  The  rod  length  in  used  in  this  exact  analysis  is  10 
[cm],  in  distinction  with  the  rod  length  used  in  the  finite  element  analysis.  Displacements,  u, 
are  specified  in  [m];  loads,  Px,  in  [N];  concentrations,  cl,  in  [kg H /kg  Fe];  mass  flux,  Jl, 

in  [m/s];  and  body  force,  Fx,  in  [N /m^]. 
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1.  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME: 

/  af  s/nd.  edu/user4/ j  thoinas5/Maple/Transport/lDSSsol#la  .ms 


2 .  ORIGINATOR : 

Dr.  James  P.  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
(219)  631-9371 


3.  HISTORY: 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 


/ 

/ 

/ 

/ 

/ 


- >  X 


x=0 


x=0.010 


[m] 


Deformation  variable  boundary  conditions:  u(0)=0,  S(0.10)=0 
Concentration  variable  boundary  conditions:  c(0)=0,  c{0.10)=le-6 
Reference  concentration  level:  c0=0.0 
Trapping  parameter:  traps=19  (low  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  dS/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2 *c+B3  (axial  stress) 

5.  de/dx-K2 *dc/dx=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2*c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattice  diffusivity  [m''2/sec] 

Kl:=(Vs*K) / (R*T) 

Vs:=  partial  molar  volume  of  solute  [m''3/mol  solute] 

K:=  bulk  modulus=Em/ (3*  (l-2*nu)  )  [N/m''2] 

Em:=  Modulus  of  Elasticity  [N/m''2] 
nu:=  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1 : =3*K 

B2 : =9  *K*alpha* ( 1  + traps ) 

B3 : =B2*co 

traps : =  Csr *Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr : =  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2  :  =3  *alpha* ( 1  +  traps ) 

alpha:=  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho :  =  mass  density  of  the  solid  [kg/m''3] 

MWs : =  molecular  weight  of  the  solute  [kg/mol ) 

Dele : =  c-cO  [ 1 ] 


A-la-1 


A1 : =1-2 ‘nu 

A2 : =2* ( 1+nu) *alpha* ( 1+traps ) 
A3 ;=A2*cO 


5 .  REQUIRED  INPUTS : 

Ds;=lattice  diffusivity  [m^2/sec] 

Vs ; =  partial  molar  volume  of  solute  [m^3/mol  solute] 
traps : =  Csr*Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWst=  molecular  weight  of  the  solute  [kg/mol] 

Em:=  Modulus  of  Elasticity  [Pa] 
nu;=  Poisson's  ratio  [1] 

rho : =  mass  density  of  the  solid  [kg/m^3] 

T;=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits:=trunc(evalhf(Digits)); 


>  J  :=Ds*{K1  *K2*c{x)-1  )*diff (c(x),x); 


Digits  :=  15 


J  Ds  {K1  K2  c{x)  -  \)  ~c{x) 

I  GX 


>  deqn:=diff(J,x)=0; 


deqn\=DsKlK2  —  c{x)  +  Ds  {K1  K2  c{x)  -  \)  —  c(x)  =0 


>  csoln:=dsolve(deqn,c(x), explicit); 


csoln  ;=  c(x)  =  -  ■ 


Cl  - 


1  II+2K1K2  C1X  +  2K1K2  Cl  C2 


c(x)  = 


K1  K2 

1  Jl+2K1  K2  _C1  X  +  2K1  K2  JCI  ^C2 

Cl  ^ _ _C7 _ 

K1  K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x)  .  The 
boundary  conditions  will  be  used  to  select  the  proper  one. 

>  c1:=unappIy(simpIify(op(2,csoIn[1])),x); 


cl  !—  X  — ^ 


1  +  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2 

K1  K2 


>  c1(x); 


l+^\+2KlK2  _Clx  +  2Kl  K2  jCl  _C2 
K1  K2 


>  c2:=unappiy(simpiify(op(2,csoin[2])),x); 


A-la-2 


c2  :=  X  — >  -  • 


-l+J\+2KlK2j:ix  +  2KlK2  _C1  _C2 
K1K2 


>  c2{x); 


■\+ll+2KlK2  C1X  +  2K1K2  Cl  C2 


K1K2 


>  J1  :=unapply(simpIify{Ds*(K1  *K2*c1  (x)-1)*diff{c1  (x),x),x)); 


77  :=  (  )-^Ds  _C1 


>Ji(x); 


Ds  Cl 


>  J2:=unapply(simplify(Ds*(K1*K2*c2(x)-1)*diff(c2(x),x))); 


>  J2(x); 


72  :=  (  )-^Ds  _C1 


Ds  Cl 


Note  #2:  The  above  results  show  that  both  mass  flux  solutions  are  identical 
and  equal  to  Ds*_Cl  where  _C1  is  a  constant  of  integration! 


>  exi  ;=dsolve{diff(e(x),x)-K2*diff(c1  (x),x)=0,e(x)); 


exl  :=  e(x) 


\+2KlK2  C1X  +  2K1K2  Cl  C2  +  C3  K1 


>  e1  :=unapply(simplify(op(2,ex1  )),x); 


el  :=  X  — > 


\ +2  K1K2  Cl  X +  2  K1K2  Cl  C2  +  C3  K1 


>e1(x); 


I +2  K1  K2  Cl  X  +  2K1K2  Cl  C2  +  C3  K1 


>  ex2:=dsoIve(diff(e(x),x)-K2*diff(c2(x),x)=0,e{x)); 


ex2  :=  e(x) 


-j\+2KlK2  Cl  X +  2  K1  K2  Cl  C2  +  C3  K1 


>  e2:=unapply(simplify(op(2,ex2)),x); 


e2  :=  X  ■ 


\+2Kl  K2  _C1  X  +  2K1  K2  Cl  C2  +  C3  K1 


>  e2{x); 


\ +2  K1K2  Cl  X +  2  K1K2  Cl  C2  +  C3  K1 


A-la-3 


>  ux1  :=dsolve{A1  *diff(u(x),x)+A2'‘c1  (x)-A3-e1  (x)=0,u(x)); 

uxl  :=  u(x)  =  ^(-3  A2  X  K1  K2  _C1  -  A2  -  2  A2  K1  K2  _C1  x 

-  2  A2  K1  K2  _C1  _C2  +  3  A3  x  KP  K2^  jCl  +  K2  +  2  J%1  K2'^  K1  _C1  x 
+  2  J%1  K2^  K1  _C1  _C2  +  3_C3x  KP  K2'^  _C1  +  3  JC4  A1  KP  K2'^  __C1 ) / {A1  KP 
K2^^C1) 

%l:=l+2Kl  K2_Clx  +  2  K1  K2  jCl  _C2 

>  u1:=unapply{simplify(op(2,ux1)),x); 

ul  ■=x^-[-3A2xKlK2  Cl  -  A2  l\ +2  K1  K2  Clx  +  2K1K2  Cl  C2 

3^  -  s/  -  -  - 


\ +2  K1K2 

_Ci  X  +  2  K1  K2 , 

Jll 

JC2  A2  K1  K2 

_Clx 

-2} 

1 +2  K1K2 

jClx  +  2  K1  K2 

JCI 

_C2  A2  K1  K2 

_C1  JC2  + 

3A3xKPK2^ 

-Cl 

+  2  K1  K2_ 

Cl  X  +  2K1  K2  _ 

Cl  _ 

C2  K2 

+  2, 

1 1 +2  K1K2 

_Ci  X  +  2  K1  K2 

-Cl 

JC2  K2^  K1  _ 

Cl  X 

+  2, 

1 1 +2  K1K2 

jClx  +  2  K1  K2 

JCl 

_C2  K2^  K1  _ 

Cl  JC2  +  3 

_C3  X  KP  K2^  _ 

Cl 

+  3  _C4  A1  KP  K2^  _C1  )/(Ai  KP  K2^  _C1 ) 

>u1(x); 

^(-3A2xKl  K2  _C1  -  A2  -  2  Jm  A2  K1  K2  _Clx-2  /%!  A2  K1  K2  _C1  _C2 

+  3A3x  KP  K2^  _C1  +  K2  +  2  K2^  K1  _Clx  +  2  K2^  K1  _C1  _C2 

+  3_C3x  KP  K2^  _C1  +  3  _C4  A1  KP  K2^  _C1 )/( Ai  KP  K2^  _C1 ) 

%l  :=  I  +  2K1  K2  _C1  x  +  2  K1  K2  JCl  _C2 

>  ux2:=dsolve(A1  *diff(u(x),x)+A2*c2(x)-A3-e2(x)=0,u(x)); 

ux2  :=u(;c)=^(-3A2x/^i  K2  _C1  +  A2  +  2  A2  K1  K2  _C1  x 

+  2  y%r  A2  K1  K2  _C1  _C2  +  3A3x  KP  K2^  _C1  ~  K2  -  2  K2^  K1  _C1  x 

-  2  /%T  K2^  K1  _C1  _C2  +  3_C3x  KP  K2'^  _C1  +  3  _C4  Al  KP  K2^  _C1 )  / (Ai  KP 
K2^  _C1 ) 

%1  :=  1  +  2  i^i  i^2  __Ci  X  +  2  K1  K2  JCI  _C2 

>  u2:=unapply(simplify(op(2,ux2)),x); 

w2  ;=x^-(-3A2xi:i  i:2  Cl  +  A2  J I +  2  K1  K2  Cl  x +  2  K1  K2  Cl  C2 
3  -  >/  -  -  - 


A- la-4 


+  2jl+2KlK2jClx  +  2KlK2_Cl_C2  A2  K1  K2  _C1  x 
+  2  Jl+2KlK2_Clx  +  2KlK2  _C1  _C2  A2  K1  K2  _C1  JC2  +  2>A3x  Kl^  K2'^  _C1 
-Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2 
-2j\+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  _C1  x 

-  2  Jl+2KlK2_Clx  +  2KlK2  _C1  _C2  K2^  K1  _C1  _C2  +  3_C3x  Kl^  K2^  _C1 
+  3  _C4  A1  Kl^  K2^  _C1 ) /(Al  Kl^  K2^  _C1 ) 

>  u2(x); 

^{-3  A2xKl  K2  _C1  +  A2  +  2  Jm  A2  K1  K2  _Clx  +  2  A2  K1  K2  jCl  jC2 

+  3A3xKl^  K2^  _C1  -  K2  -  2  K2^  K1  _Clx -2  K2^  K1  _C1  _C2 

+  3  _C3x  Kl^  K2^  _C1  +  3  _C4  Al  Kl^  K2'^  _C1 )  j {Al  Kf  K2'^  _C1 ) 

%\  ■=  I  +  2  K1  K2  _C1  x  +  2  K1  K2  _C1  _C2 

>  SI  :=x->simplify(B1  *e1  (x)-B2*c1  (x)+B3); 

51  :=x-^  simplify(Z?7  el(jr)  -  B2  cl(x)  +  B3) 

>S1(x); 

{b1  K2  Jl+2K1  K2_C1  X  +  2K1  K2_C1  _C2  +  B1  K2  _C3  K1  -  B2 

-  B2  j\+2KlK2_Clx+2KlK2  _C1  _C2  +  B3  K1  K2 )  j  {K1  K2 ) 

>  S2:=x->simplify(B1  *e2{x)-B2*c2(x)+B3); 

52  :=x—^  simplify(Bi  e2(x)  -  B2  c2{x)  +  B3) 

>  S2{x); 

( -57  K2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  57  K2  _C3  K1  -  B2 

+  B2  Jl+2K1  K2  _C1  x  +  2  K1~K2  _C1  _C2  +  B3  K1  K2)  j  {K1  K2) 

Note  #3:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 

>  K:=(Em/(3‘(1-2*nu))); 


>  lambda:=(Em*nu)/((1+nu)*(1-2*nu)); 


>  mu:=Em/(2*(1+nu)); 


>  alpha:=(rho*\/s)/(3*MWs); 


K:-- 


Em 
3  -  6  V 


Em  V 


(l+v)(l-2v) 


Em 


11  := 


2  +  2v 


A- la-5 


1  pVs 

a  := - 

3  MWs 

>  K1  :=(Vs*K)/(R’‘T); 

Vis  Em 

K1  ;= - 

(3-6v)RT 

>  K2:=3*alpha*(1+traps); 

p  Vs  (I  +  traps) 

KZ  1= 

MWs 

>  K1‘K2; 

Vs^  Em  p  ( 1  +  traps) 
{3-6v)RTMWs 

>  A1:=(1-2‘nu); 

A7  :=  1  -  2V 

>  A2:=2*{1+nu)*alpha*(1+traps); 


>  A3:=A2‘cO; 


>  B1:=3*K; 


A2  := 


2(l+v)pV5(l  +  traps) 
3  MWs 


2(l+v)pV5(l  +  traps )  cO 
3  MWs 


>  B2:=9*K*alpha*(1+traps); 


>  B3:=B2*cO; 


Em 

B1  :=3 - 

3-6v 


Em  p  Vi'  ( 1  +  traps) 

B2  :=  3 

{3-6v)MWs 


Em  p  Vj'  ( 1  +  traps )  cO 
{3-6v)MWs 


A- la-6 


>c1(x); 


^  12  P  ( 1  +  traps)  _C1  x  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 

J  i3-6v)RTMWs  {3-6v)RTMWs 


(3-6v)RT 


MWsj  {Vs^  Em  p  ( 1  +  traps)) 


>  c2(x); 


^  12  P  ( 1  +  traps)  _C1  x  ^  Vs'^  Em  p  ( 1  +  traps)  _C1  _C2 

J  (3-6v)RTMWs  (3-6v)RTMWs 


(3-6v)RT 


MWsj  (Vs^  Em  p  ( 1  +  traps)) 


>e1(x); 


'  ^  ^  Vs^  Em  p  ( 1  +  traps )  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2  _C3  Vs  Em 

i3-6v)RTMWs  (3-6v)RTMWs  (3-6v)RT 

(3-6v)RTl(VsEm) 


>  e2{x); 


Vs^  Em  p  ( 1  +  traps)  _C1  x  Vs'^  Em  p  ( 1  +  traps)  _C1  _C2  _C3  Em 

J  (3-6v)RTMWs  (3-6v)RTMWs  (3-6v)RT 


(3-6v)RTl(VsEm) 


>  ui(x): 


1  ^  ( 1  +  V )  p^  ( 1  +  trapsf  X  Em  _C1  2(l+v)py5(l  +  traps)  J%1 

3  MWs^(3-6v)RT  *3  MWs 


4  J%1  (l+v)p^  ( 1  +  traps  )^  Em  _C1  x 

'3  MWs^{3-6v)RT 

4  ( 1  +  V)  pV^^  ( 1  +  traps)'^  Em  _C1  _C2 

3  MWs^i3-6v)RT 

^  ( 1  +  V)  p^  Vs^  ( 1  +  traps  f  cO  x  Errfi  _C1  J%\  p  V^'  ( 1  +  traps) 

MWs^  {3  -6vf  R^T^  MWs 

^  ^  p^  VsHl  +  traps  f  Em  -Cl  ^  p^  ( 1  ^ 

MWs^{3-6v)RT  MWs^{3-6v)RT 

^  ^  _C3  X  y/  Em3  p^  ( 1  +  traps  f  _C1  ^  _C4  ( 1  -  2  v)  V/  Em3  p^  ( 1  +  trapsf  _C1 

{3-6vf  R^r-MWs^  {3-6vf  R^T^MWs'^ 

\ 

(3-6vfR^P  MWs^l[{\  -  2  V)  y/  £m2  p^  ( 1  +  trapsf  _C1 ) 


A-la-7 


Vs^  Em  p  ( 1  +  traps)  _C1  x  Vs^  Em  p  (  1  +  traps)  _C1  _C2 
%l:=l+2 - +  2 -  — 


(3-6v)i?rMV7^ 


{'i-^\)RTMWs 


>  u2(x); 


^  ( 1  +  V )  p^  ( 1  +  traps ')  X  Em  jCl  2(l+v)pV5'(l  +  traps )  J%1 

MWs^{3-6v)RT  3  MWs 


+ 


+ 

3 


+  2 


4  ( 1  +  V )  p  ( 1  +  traps  f  Em  _C1  x 

3  MWs'^(3-6v)RT 

4  ( 1  +  V)  pVs^  ( 1  +  traps  f  Em  _C1  _C2 
MWs'^(3-6v)RT 

( 1  +  V )  p^  Vs^  ( 1  +  trapsf  cO  x  Em^  jCl  J%1  p  ( 1  +  traps) 


MWs\3-6v)  R^T^ 


MWs 


p^  1  pfn  _ci  ^  Vs^l+  traps  f  Em  _C1  _C2 

MWs^{3-6v)RT  '  MWs^{3-6v)RT 

^  _C3  xVs^  Em^  g  {I  traps  f  _C1  ^  _C4  ( 1  -  2  v )  V/  Ern^  P^  ( 1  +  traps  f  _C1 

+  3  I  +  3  I 


(3-6v)  R^T^MWs'^ 


(3-6v)  R^T^MWs^ 


(3 


6vf  R^T^MWs^ !  [{1-2  V)  Vs'^  Em^  {\  +  traps  f  _Cl) 


^  ^  12  P  ( ^  +  traps )  _C1  x  ^  Vs'^  Em  p  ( 1  +  traps )  _C1  _C2 


{3-6v)RTMWs 


i3-6v)RTMWs 


>  S1(x); 


{MWs  _C3  Vs  Em -3  R  T  MWs  +  6R  T  MWs  \  +  Emp  Vs^  cO  +  Em  p  Vs'^  cO  traps)/ { 
(-1  +2v)  Vs  MWs) 


>  S2(x); 


-  {MWs  _C3  Vs  Em -3  R  T  MWs  +  6R  T  MWs  v  +  Emp  Vs'^  cO  +  Emp  Vs'^  cO  traps)/ ( 
(-1  +  2v)  Vs  MWs) 

>S1(x)-S2(x); 

0 


Note  #4:  The  stresses  are  same  for  each  solution  root,  and  do  not  depend  on 
the  position  x!  The  stresses  are  therefore  constant  throughout  the 
body.  We  will  solve  for  _C3  in  terms  of  the  boundary  stress,  SO. 


>  _C3:=simplify(solve(S1  (x)=S0,_C3)); 

__C3  :=-{-3R  TMWs  +  6R  T MWs  v  +  Em  p  cO  +  Em  p  cO  traps  -  SO  Vs  MWs 
+  2  SO  Vs  MWs  V)/ {MWs  Vs  Em) 


A-la-8 


>S1(x); 


SO 


>  S2(x); 


SO 


>  S1:=x->S0; 


>  S2:=x->S0; 


SI  :=x-^  SO 


S2  :=x-^SO 


Note  #5:  Now  we  will  introduce  numerical  values  for  the  material  properties. 

The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 

>  S0:=0.0; 

S0:=0 

>  Ds:=1e-9; 

Dsi^.l  10-« 

>  Vs:=2.02e-6; 

:=  .202  10-5 

>  traps:=19; 

traps  :=  19 

>  c0:=0.0; 

c0:=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em:=200e9; 

Em  :=  .200  lO'^ 

>  nu:=0.3; 

v:=.3 

>  rho:=7800; 

p  :=  7800 

>  T:=293; 

T  :=  293 

>  R:=8.31432; 

8.31432 

>K; 


.166666666666667 

>  lambda; 

.115384615384616  lO^^ 

>  mu; 

.769230769230769  10^' 

>  alpha; 


A-la-9 


5.21047253390476 

>  Rh:=R/iVlWs; 

Rh  :=  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

312.628352034286 

>  K1‘K2; 

43205.0114421104 

>1/(K1*K2); 

.0000231454631447068 

>  A1; 

.4 

>  A2; 

270.944571763048 

>  A3; 

0 

>  B1; 

.500000000000001  10’2 

>  B2; 

.156314176017143  10’^ 

>  B3; 

0 

>_C3; 

.00723592800000000 

>S1(x); 

0 

>  S2(x); 

0 

Note  #6;  Nov/  let's  solve  for  the  integration  constants:  _C1,  _C2 ,  and  _C4,  using  the 
boundary  data. 

>  c1(x); 

.0000231454631447068  +  .0000231454631447068 

j  1  +  86410.0228842208  _C1  x  +  86410.0228842208  _C1 

_C2 

>  c2(x); 

.0000231454631447068  -  .0000231454631447068 

j  1  +  86410.0228842208  _C1  x  +  86410.0228842208  _Ci 

_C2 

>  evalf(c1(x),5); 

A-la-10 


.000023146  +  .000023146  Jl.  +  86408.  _C1  x  +  86408.  _C1  _C2 

>  eqnsetl  :={0=c1  (0),1  e-6=c1  (0.1 0)}; 

eqnsetl  ;=  { .1  10  ^  =  .0000231454631447068  +  .0000231454631447068 
J 1  +  8641.00228842208  _C1  +  86410.0228842208  _C1  _C2 , 0  = 
.0000231454631447068  +  .0000231454631447068  jl  +  86410.0228842208  _C1  _C2  } 

>  varsetl  :={_C1  ,_C2}; 

varsetl  :=  { _C2,  _C1 } 

>  solnsetl :=solve(eqnset1 , varsetl); 

solnsetl 

>  eqnset2;={0=c2(0),1  e-6=c2(0.1 0)}; 

eqnsetl  :=  {  .1  10  ^  -  .0000231454631447068 

-  .0000231454631447068  J 1  +  8641.00228842208  _C1  +  86410.0228842208  _C1  _C2 
,0- 

.0000231454631447068  -  .0000231454631447068  jl  +  86410.0228842208  _C1  _C2  } 

>  varset2:={_C1,_C2}; 

varsetl  ;=  { _C2,  _C1 } 

>  solnset2:=solve(eqnset2,varset2); 

solnsetl  :=  [  _C1  =  -.978397494278943  lO'^,  _C2  =  0 } 

>  assign(solnset2); _ 

Note  #7;  The  solution  cl(x)  is  not  capable  of  satisfying  the  boundary 

conditions,  as  evidenced  by  the  lack  of  solution  for  the  given 
boundary  conditions.  The  concentration  function  c2 (x)  is  the 
correct  solution  in  this  case! 


>  c2(x); 

.0000231454631447068  -  .0000231454631447068  Jl  -  .845433498705078  x 

>  p1:=plot(1e6*c2(x/100),x=0..10,title=‘Concentration,  c2(x)  [ppm]‘): 

>  pi; 


Concentration,  c2(x)  [ppm] 
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>  p2:=plot(1  e9*(c2(0)+((c2(0.1 0)-c2(0))/0.1 0)‘x/1 00-c2(x/100)),x=0..1 0,title=‘Concentration  Difference  [ppb]‘): 

>  p2; 

> 


Concentration  Difference  [ppb] 


>  e2(x); 

-.00723592799999998  J 1  -  .845433498705078  x  +  .00723592799999998 

>  p3:=pIot(1e6*e2(x/100),x=0..10,titIe=‘Dilatational  Strain,  e2(x)  [ue]‘): 

>  p3; 


Dilatational  Strain,  e2(x)  [ue] 


>  u2(x); 

.00241197600000008  x  +  .00190196390663828  Jl  - .845433498705078 x 

-  .00160798400000005  J 1  -  .845433498705078  x  x  +  .999999999999996  _C4 

>  _C4:=solve(u2(0)=0,_C4); 

_C4  :=  -.00190196390663829 


>  u2(x); 

.00241197600000008  x  +  .00190196390663828  Jl  - .845433498705078 x 

-  .00160798400000005^1  -  .845433498705078  x  x  -  .00190196390663827 
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>  ex:=unapply(diff(u2{x),x),x); 


ex  :=  X  ^  .00241 197600000008  -  .000803991999999990 


_ 1 _ 

Jl  -  . 845433498705078 X 


+  .000679721769490914  ,  . . 

J 1  -  .845433498705078  x 

-  .00160798400000005  J 1  -  .845433498705078 x 

>  ex(x); 

1 

.00241197600000008  -  .00080399 1 999999990 

J 1  -  .845433498705078  x 

+  .000679721769490914  ,  ^ 

J 1  -  .845433498705078  x 

-  .00160798400000005  J 1  -  .845433498705078  x 


>  evalf(u2(x),5); 

.0024108  X  +  .0019015  jl. -. 84542  x  -  .0016072  J 1.  -  .84542  x  x  -  .0019021 

>  evalf(c2(x),5); 

.000023146  -  .000023146  J 1.-. 84542  x 

>  evalf(e2{x),5); 

-.0072359  J 1.-. 84542  X  -i-  .0072359 

>  evalf{ex{x),5); 

.0024120  -  .00080399  ■  ,  -  +  .00067972  ,  ^  -  .0016080  jl.  -  .84543  x 

J 1.-. 84543  X  Jl.-M543x 


>  J2(x); 

-.978397494278943  lO’’^ 
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1.  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME: 

/afs/nd.edu/user4/ j  thomasS /Maple/Transport/ lDSSsol#lb. ms 


2 .  ORIGINATOR : 

Dr.  James  P.  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
(2i9)  631-9371 


3.  HISTORY: 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  rr^S?  ® 
solved  is  shovm  below;  ^  lem 


->  X  (m) 


x=0 


x=0.010 


Deformation  variable  boundary  conditions:  u(0)=0,  S(0.10)=0 
Concentration  variable  boundary  conditions:  c(0)=0,  c(0.10)=le-7 
Reference  concentration  level:  c0=0.0 
Trapping  parameter;  traps=19  (low  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dj/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds*  (Kl*c*de/dx-iic/dx)  (mass  flux) 

3.  ds/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2*c+B3  (axial  stress) 

5.  de/dx-K2*dc/dx:  (1  (dilntional  strain  gradient) 

6.  e=Al*du/dx+A2 *c-A.i  (dilatational  strain) 


The  constants  used  in  tlie  plane  stress  analysis  are  defined  below; 
Ds;=lattice  diffusivily  lm^2/sec] 


K1 : = {Vs*K) / (R*T) 

Vs:=  partial  molar  volume  of  solute  [m''3/raol  solute] 
K;=  bulk  modulus=Em/ (.1*  (l-2*nu)  )  [N/m''2] 

Em:=  Modulus  of  Eln.st'i  c-i  ty  [N/m''2] 
nu:=  Poisson's  ratio  11] 

R:=  universal  gas  coiuh  ant  =  8 . 31432  [J/mol-K] 

T:=  temperature  [K1 


B1;=3*k 

B2  :  =9*K*alpha*  (l  +  trnp;:) 

B3 : =B2  *co 

traps :=  Csr*Kr=trappi ng  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr:=  equilibrium  trapping  constant  [1] 
o0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* ( 1+traps ) 

alpha:=  (rho*Vs)/(3*MW.s)=solute  concentration  expansion  coefficient  rm/m/nolci 
rho :  =  mass  density  ol  tlie  solid  [kg/m''3] 

NWS : =  molecular  weight  of  the  solute  [kg/mol] 

Delc;=  c-cO  [1] 
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Al:=l-2*nu 

A2 : =2  * ( 1+nu) *alpha* ( 1+traps ) 
A3 :=A2*cO 


5 .  REQUIRED  INPUTS ; 

Ds:=lattice  diffusivity  [m^2/sec] 

Vs:=  partial  molar  volume  of  solute  [m''3/mol  solute] 
traps :=  Csr*Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs:=  molecular  weight  of  the  solute  [kg/mol] 

Em:=  Modulus  of  Elasticity  [Pa] 
nu:=  Poisson's  ratio  [1] 

rho :  =  mass  density  of  the  solid  [kg/m''3] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits:=trunc{evalhf{Digits)); 


Digits  :=  15 


>  J  :=Ds*(K1  *K2*c(x)-1  )*diff (c(x),x); 


J  :=  Ds  (K1  K2  c(x)  -  1) 


:rc(x) 

ydx  y 


>  deqn:=diff(J,x)=0; 


deqn  :=  Ds  K1  K2 


"a  ^ 

—  c(x) 

J 


+  Ds  (Kl  K2  cix)  -  1) 


a^ 

ydx^  J 


=  0 


>  csoln:=dsolve(deqn,c(x), explicit); 


csoln  :=  c(x)  = 


Cl 


1  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2 


V  - 


Cl 


Cl 


Cl 


c{x)  =  -- 


V 


Kl  K2 

1  J\+2K1  K2  _C1  X  +  2K1  K2  __C1  JC2 

Cl  ^  Cl 


Kl  K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x) .  The 
boundary  conditions  will  be  used  to  select  the  proper  one. 


>  c1:=unapply(simplify(op(2,csoln[1])),x); 


cl  ■=  X 


1  +JI+2K1  K2_Clx  +  2Kl  K2  _C1  _C2 
Kl  K2 


>  c1(x); 


1  +  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2 
Kl  K2 


>  c2:=unapply(simplify(op{2,csoln[2])),x); 
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c2  :=x  ^ 


-1+JI+2K1  K2_Clx  +  2Kl  K2_C1  _C2 
K1K2 


>  c2{x); 


-l-^ll+2KlK2  C1X  +  2K1K2  Cl  C2 


K1K2 


>  J1:=unapply(simplify(Ds*(K1*K2*c1(x)-1)*diff(c1(x),x),x)): 


J1  :=(  )-^Ds_Cl 


>J1{x); 


Ds  Cl 


>  J2:=unapply(simplify(Ds*(K1*K2*c2(x)-1)*diff(c2(x),x))); 


>  J2(x); 


72  :=  (  )-^Ds  _C1 


Ds  Cl 


Note  #2;  The  above  results  show  that  both  mass  flux  solutions  are  identical 
and  equal  to  Ds*_Cl  where  _C1  is  a  constant  of  integration! 


>  exi  :=dsolve(diff(e(x),x)-K2*diff(c1(x),x)=0,e{x)); 


exl  :=  e(x)  =  ■ 


1+2K1K2  C1X  +  2K1K2  Cl  C2  +  C3  K1 


>  e1  :=unapply(simplify{op(2,ex1  )),x); 


el  :=  x  — >  ■ 


I +2  K1K2  Cl  X +  2  K1K2  Cl  C2  +  C3  K1 


>  e1(x); 


I +2  K1  K2  Cl  X +  2  K1K2  Cl  C2  +  C3  K1 


>  ex2:=dsoIve(diff(e(x),x)-K2*diff(c2(x),x)=0,e(x)); 


ex2  :=  e(x) 


>  e2;=unappIy(simpIify(op(2,ex2)),x); 


e2  :=x 


\ +2  K1K2  Cl  X +  2  K1K2  Cl  C2  +  C3  K1 


\ +  2  K1K2  Cl  X +  2  K1  K2  Cl  C2  -  C3  K1 


>  e2(x); 


I +2  K1  K2  Cl  X +  2  K1K2  Cl  C2  -  C3  K1 
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>  uxl  :=dsolve(A1  *diff(u(x),x)+A2*c1  (x)-A3-e1  (x)=0,u(x)); 

uxl  :=u(x)  =  ^(-3A2xKlK2_Cl-A2j^-2j^A2KlK2_Clx 

A2  K1  K2  JCI  _C2  +  3  A3  x  KP  K2^  _C1  +  K2  +  2j^  K2^  K1  _C1  x 

+  2  K2'^  K1  _C1  _C2  +  3_C3x  Kl^  K2^  _C1  +  3  _C4  A1  Kl^  K2^  _C1 ) /(Al  Kl^ 

K2^_C1) 

%1  :=  1+2  K1  K2  _C1  X +  2  K1  K2  _C1  _C2 

>  u1  :=unapply{simplify(op(2,ux1)),x); 

ul:=x-+--[3A2xKlK2  Cl  +  A2  1 1 +2  K1  K2  Clx  +  2K1K2  Cl  C2 

+  2jl+2KlK2_Clx  +  2KlK2  _C1  _C2  A2  K1  K2  _C1  x 
+  2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  A2  K1  K2  _C1  _C2  -3A3xKP  K2-  _C1 
-Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2 

-  2  jl+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  jCl  x 

-  2  Jl  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  _C1  _C2  -3  _C3x  Kl^  K2'^  JCl 

-  3  _C4  Al  Kf  K2^  _C1 )  /  (Al  KJ  K2^  jCl ) 

>  u1(x); 

-^[3  A2  X  K1  K2  JCI  +  A2  +  2  A2  K1  K2  _C1  x  +  2  Jm  A2  K1  K2  _C1  _C2 

-3A3x  KP  K2^  _C1  -  Jm  K2  -  2  K2^  K1  jClx-2  K2'^  K1  _C1  _C2 

-3_C3x  Kf  K2'^  _C1  -  3  _C4  Al  Kl^  K2^  _C1 ) / (Al  Kf  K2^  _C1 ) 

%l  :=  I +  2K1  K2  _C1  x  +  2  K1  K2  _C1  JC2 

>  ux2:=dsolve(A1  *diff(u(x),x)+A2*c2(x)-A3-e2(x)=0,u(x)); 

ux2  :=  u(x)  =  ^  (-3  A2  X  K1  K2  _C1  +  A2  +  2  A2  K1  K2  _C1  x 

+  2  A2  K1  K2  JCl  _C2  +  3  A3  x  Kf  K2'^  _C1  -  K2  -  2  K2^  K1  _C1  x 

-  2  K2^  K1  _C1  JC2  +  3  JC3x  Kf  K2'^  JCl  +  3  _C4  Al  KJ  K2'^  JCl ) / (Al  Kl'^ 

K2^  _C1 ) 

%1  :=  1  +  2  i<:2  _Ci  X  +  2  K1  K2  JCI  JC2 

>  u2:=unapply(simplify(op(2,ux2)),x); 

m2  :=x-^-(-3A2xii:i /i:2  Cl  +  A2  \\ +2K1  K2  Clx  +  2K1K2  Cl  C2 
3  -  V  -  -  - 
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+  2  JT+TKrK2^Cl^c  +  2KlK2  jCl  _C2  A2  K1  K2  _C1  x 
^  2  JT+TkI  K2  _C1x  +  2  K1  K2  _C1  _C2  A2  K1  K2  _C1  _C2  +  3A3x  KP  K2^  _C1 
.  [T+TkI  K2  _C1x  +  2  K1  K2  jCl  _C2  K2 
_  2  /7+T^/  K2  _C1x  +  2  K1  K2  _C1  _C2  K2^  K1  _C1  x 

_  2  J7+  2  K1  K2  jClx  +  l  K1  K2  _C1  _C2  K2^  K1  _C1  _C2  +  3_C3x  KP  K2^  _C1 
+  3  _C4A1  KP  K2^  _Ci)I(A1  KP  K2^  _C1 ) 

>  u2(x); 

-(-3A2  X  K1  K2  _C1  +A2  7%!  +  2j^A2  K1  K2  _C1  x  +  2f%lA2  K1  K2  JCI  _C2 
3  ^ 

+  3  A3  X  KP  K2^  JCI  -  /%!  K2  -  2  K2^  K1  _Clx-2  K2^  K1  _C1  _C2 

+  3  S3  ^  SI  +  3  S4  A1  KP  K2'^  SI  )/(Ai  KP  K2^  SI ) 


%1  : 


.-1+2  KI  K2  Six +  2  K1  K2  SI  S2 


>  S1:=x->simpllfy(B1*®^(’‘)'^^  c1(x)+B3), 

SI  ■=x-^  simplify(5i  el(;c)  -  B2  cl(x)  +  B3) 


>S1{x); 


(ni  K2j\+^KlK2Slx  +  2KlK2Sl  S2  +B1  K2S3K1 -B2 

-in  [\+2KlK2  S1X  +  2K1  K2  SI  S2  +B3  Kl  K2)  j  {Kl  K2) 

>  S2:=x->simpllfy(B1  ‘o2(x)-B2*c2(x)+B3): 

S2  :=  x-^  simplify(i5i  e2(x)  -  B2  c2{x)  +  B3) 


>  S2(x); 


-BI  K2  J  \  +2  Kl  K2  SI  X  +  2K1  K2  SI  S2  +  B1  K2  S3  Kl  -  B2 

li2  f\  +2K1  K2  SI  X  +  2K1  K2  SI  S2  +  B3  Kl  K2)  j  {Kl  K2) 


+ 


M  #3  /\i  ilii-;  [H'ii'l--  will  introduce  expressions  for  the  constants  and 

°  ®  -Minplify  the  results  before  quantifying  the  constants  and 

cl. il  <11  mining  the  constants  of  integration. 


>  K;=(Em/(3*(1-2‘niO)); 


K-.-- 


nu)/((1+hu)'(1-2*nu)); 


>  lambda:=(Em* 


>  mu:=Em/(2*(1+nu)); 


•  alpha:=(rho*V8)/(3*MWs); 


Em 

3-6v 

Em  V 


(l+v)(l-2v) 

Em 


[l-x 


2  +  2v 
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>  K1:=(Vs*K)/(R*T); 


1  pV^ 

a  := - 

3  MWs 


>  K2:=:3*alpha*(1+traps); 


>  K1*K2; 


>  A1:=(1-2*nu); 


Vs  Em 

K1  ;= - 

{3-6v)RT 


p  Vs  {\+ traps) 

KZ  != 

MWs 


Vs^  Em  p  ( 1  +  traps ) 
i3-6v)RTMWs 


>  A2:=2*(1+nu)*alpha*(1+traps); 


A1  :=  I -2v 


2(l+v)pV5(l  +  traps) 
3  MWs 

>  A3:=A2*cO; 


>  B1:=3*K; 


(l+v)pV5(l  +  traps )  cO 
MWs 


>  B2:=9*K*alpha*(1+traps); 


>  B3:=B2*cO; 


B1  -3 


Em 
3  -  6  V 


Em  p  ( 1  +  traps ) 

B2  3 - 

(3 


^  Em  p  Ky  ( 1  +  traps )  cO 
(3-6v)MWs 
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>  c1{x); 

( 


^  112  P  ( 1  +  traps )  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 


V  j  {3-6v)RTMWs 

MWsj { Vs^  Em  p  ( 1  +  traps)) 

>  c2(x); 


(3-6v)RTMWs 


i3-6v)RT 


^  ^  r  ^  Vs^  Em  p  ( 1  +  traps)  jCl  x  ^  Em  p  ( 1  +  traps)  _C1  _C2 


V 


(3-6v)RTMWs 


{3-6v)RTMWs 


(3-6v)RT 


MWsj { Vs^  Em  p  ( 1  +  traps)) 


>e1{x); 

r 


^  ^  Vs^  Em  p  ( 1  +  traps)  _C1  x  ^  Vs'^  Em  p  ( 1  +  traps)  _C1  _C2  _C3  Vs  Em 


i3-6v)RTMWs 
(3-6v)RTliVsEm) 


(3-6v)RTMWs 


i3-6v)RT  j 


>  e2(x); 


^  ^  Em  p  ( 1  +  traps )  _C1  x  ^  Vs^  Em  p  ( 1  +  traps )  _C1  _C2  _C3  Vs  Em  ^ 


Vj  {3-6v)RTMWs 

i3-6v)RTl{VsEm) 


{3-6v)RTMWs 


{3-6v)RT 


>  u1(x); 
1 

'3 


^  ( 1  +  v)  p^  ( 1  +  trapsf  x  Em  _C1  2(l+v)pV5(l  +  traps)  J%\ 


+ 


MWs^{3-6v)RT  3  MWs 

4  J%1  ( 1  +  V )  p^  Vis'^  (  1  +  traps)^  Em  jCl  x 

3  MWsH3-6v)RT 

4  J%r  ( 1  +  V)  p^  ( 1  +  traps)^  Em  _C1  _C2 

3  MWs^i3-6v)RT 

( 1  +  V )  p^  ( 1  +  traps  cO  x  Enf-  _C1  J%1  p  ( 1  +  traps ) 


MWs^3-6v)  R^T^ 


MWs 


^  p^  Vs^l+  trapsf  Em  jCl  x  J~%1  p^  Vs'^  jl  +  trapsf  Em  _C1  __C2 
MWs^(3-6v)RT  MWs'^{3-6v)RT 

^  _C3  j:  Vs"^  EnV  p^  ( 1  +  trapsf  _C1  ^  _C4  (1  -  2  v)  Vs'^  ErtV  p^  ( 1  +  trapsf  _C1 

{3-6vf  R^T^MWs^  {3-6vf  R^T^MWs'^ 

{3-6vf  R3T^  MWs^I[{\  -  2  V)  V/  Em^  p^  ( 1  +  trapsf  _C1 ) 

^  ^  ^2  P  ( 1  +  traps )  _C1  x  ^  Em  p  ( 1  +  traps )  _C1  JC2 


{3  -6v)  RTMWs 


(3-6v)RTMWs 
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>  <J2(x); 


-2 


( 1  +  V )  ( 1  +  traps'f'  X  Em  _C1 

MWs^{3-6v)RT 


2(l+v)pV5(l  +  traps)  J%1 
3  MWs 


4  J%1  (1  +  V )  p^  ( 1  +  traps  Em  _C1  x 
3  MWs^(3  -6v)RT 


4  Jm  ( 1  +  V)  pV^^  ( 1  +  traps)^  Em  _C1  _C2 
3  MWs^(3-6v)RT 

^  ( 1  +  V )  p^  ( 1  +  traps  f  cO  x  Em^  _C1  J%1  p  ( 1  +  traps) 

MWs^  (3-6vf  R'^T^ 


p^  Vs^  (I  +  traps  f  Em  _C1  x  ^  p^  ( 1  +  traps  f  Em  _C1  _C2 


MWs^  {3-6\)RT 


MWs^{3-6v)RT 


+  3  ^  Em^  1  +  traps  f  _C1  ^  ^  _C4  ( 1  -  2  v)  V/  Ern^  p^  ( 1  +  trapsf  _C1 

{3-6\f  R^T^MWs^  {3-6vf  R^t^MWs^ 

\ 

(3  -  6  vf  7^  MW^I  (( 1  -  2  V)  V/  p^  ( 1  +  trapsf  _C1 ) 

) 


^  ^  12  P  ( ^  +  traps)  jCl  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 

{3  -6v)RT MWs  {3-6\)RTMWs 


>S1(x); 

-  ( MWs  _C3  Vs  Em  -  3  RT  MWs  +  6  RT  MWs  V  +  Em  p  cO  +  Em  p  Vs"^  cO  traps )  /  ( 

(-1  +  2v)  Vs  MWs) 

>  S2{x); 

-  ( MWs  _C3  Vs  Em  -3  RT  MWs  +  6  RT  MWs  v  +  Em  p  Vs^  cO  +  Em  p  Vs^  cO  traps )  j  ( 

(-1  +2v)  Vs  MWs) 

>S1(x)-S2(x); 

0 


Note  #4:  The  stresses  are  same  for  each  solution  root,  and  do  not  depend  on 
the  position  x!  The  stresses  are  therefore  constant  throughout  the 
body.  We  will  solve  for  _C3  in  terms  of  the  boundary  stress,  SO. 


>  „C3:=simplify(solve{S1(x)=S0,_C3)); 

_C3  :=-(-3R  TMWs  +  6R  T  MWs  v  +  Emp  Vs'^  cO  +  Em  p  Vs^  cO  traps  -  SO  Vs  MWs 
+  2  SO  Vs  MWs  V)  I  {Em  MWs  Vs ) 

>  S1(x); 

SO 

>  S2(X); 
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>  S1  :=x->SO; 


SO 


>  S2:=x->S0; 


SI  :=x-^  SO 


S2:=x-^  SO 


Note  #5:  Now  we  will  introduce  numerical  values  for  the  material  properties. 
The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 


>  S0:=0.0; 

S0:=0 

>  Ds:=1e-9; 

Ds:=A  10-« 

>  Vs:=2.02e-6: 

:=  .202  10-5 

>  traps:=19; 

traps  :=  19 

>  c0:=0.0; 

c0:=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em;=200e9; 

Em  :=  .200  lO'^ 

>  nu:=0.3; 

v:=  .3 

>  rho:=7800; 

p  :=  7800 

>T:=293; 

T  :=  293 

>  R:=8.31432; 

/?:=  8.31432 

>  K; 

.166666666666667  lO'^ 

>  lambda; 

.115384615384616  lO’^ 

>  mu; 

.769230769230769  10" 

>  alpha; 

5.21047253390476 

>  Rh:=R/MWs; 
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Rh  :=  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

312.628352034286 

>  K1*K2; 

43205.0114421104 

>1/(K1*K2); 

.0000231454631447068 

>  A1; 

.4 

>  A2; 

270.944571763048 

>  A3; 

0 

>B1; 

.500000000000001  10*2 

>  B2; 

.156314176017143  10'^ 

>  B3; 

0 

>_C3; 

.00723592800000000 

>S1(x); 

0 

>  S2{x); 

0 

Note  #6: 

Now  let's  solve  for  the  integration  constants:  _C1,  _C2,  and  _C4, 
boundary  data . 

using  the 

>  c1(x); 

.0000231454631447068  +  .0000231454631447068 

J 1  +  86410.0228842208  _C1  x  +  86410.0228842208  _ 

Cl  _C2 

>  c2(x); 

.0000231454631447068  -  .0000231454631447068 

j  1  +  86410.0228842208  _C1  x  +  86410.0228842208  _ 

Cl  _C2 

>  evalf(c1{x),5); 

.000023146  +  .000023146  J 1.  +  86408.  _C1  x  +  86408.  _C1 

_C2 

>  eqnsetl  :={0 

=c1(0),1e-7=c1(0.10)}; 
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eqnsetl  :=  {  0  = 


.0000231454631447068  +  .0000231454631447068  j  1  +  86410.0228842208  _C1  _C2 , 
.1  10-6  =  .0000231454631447068  +  .0000231454631447068 


\  1  +  8641.00228842208  _C1  +  86410.0228842208  _C1  _C2  } 


>  varsetl  :={_C1  ,_C2}; 


>  solnsetl  :=solve{eqnset1 , varsetl ); 


>  eqnset2:={0=c2(0),1  e-7=c2(0.1 0)}; 


varsetl  :=  { _C1,  _C2  } 


solnsetl  := 


eqnset2  :=  {o : 


.0000231454631447068  -  .0000231454631447068  J 1  +  86410.0228842208  _C1  _C2, 

.  1  10-6  ^  ,000023 145463 1447068 

-  .0000231454631447068  / 1  +  8641.00228842208  _C1  +  86410.0228842208  Cl  C2 


>  varset2:={_C1,_C2}; 


>  solnset2:=solve(eqnset2,varset2); 


varset2  :=  { _C1,  _C2 


solnset2  :=  { _C1  =  -.997839749427893  10-6,  _C2  =  0 } 


>  assign(solnset2); 


Note  #7:  The  solution  cl(x)  is  not  capable  of  satisfying  the  boundary 

conditions,  as  evidenced  by  the  lack  of  solution  for  the  given 
boundary  conditions.  The  concentration  function  c2 (x)  is  the 
correct  solution  in  this  case! 


>  c2(x); 


.0000231454631447068  -  .0000231454631447068  1  -  .0862233555828494. 


>  pi  :=plot(1e6*c2(x/100),x=0..10,title=‘Concentration,  c2(x)  [ppm]‘): 
>pi; 


Concentration,  c2(x)  [ppm] 
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0  0  2  4  6  8  10 

X 

>  e2(x); 

-.00723592799999998  J 1  -  .0862233555828494  x  +  .00723592799999998 

>  p3:=pIot(1e6*e2(x/100),x=0..10,titIe=‘Dilatational  Strain,  e2(x)  [ue]‘): 

>  P3; 


Dilatational  Strain,  e2(x)  [ue] 


X 


>  u2(x); 

.00241 197600000003  a:  +  .0186490538338527  J 1  -  .0862233555828494  x 

-  .00160798400000002  J 1  -  .0862233555828494  x  x  +  .999999999999992  _C4 

>  _C4:=solve(u2(0)=0,_C4); 

_C4  :=  -.0186490538338528 

>  u2(x); 

.00241197600000003  x  +  .0186490538338527  J 1  - .0862233555828494 x 

-  .00160798400000002  / 1  -  .0862233555828494  x  x -  .0186490538338526 
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00 


4  B 

X 


8 


10 


>  ex:=unapply(diff(u2(x),x),x); 

ejc  ;=  ;c  .00241197600000003  -  .000803991999999991 

+.0000693228881017671 


Jl  -  .0862233555828494 X 


Jl  -  . 0862233555828494  ;c 


>  ex(x); 


.00160798400000002  J 1  -  .0862233555828494 x 


.00241197600000003  -  .000803991999999991 


Jl  -  .0862233555828494. 


+  .0000693228881017671  ,  . . 

J 1  -  .0862233555828494  x 

-  .00160798400000002  /l -  .0862233555828494 x 


>  evalf(u2(x),5); 

.0024107  X  +  .018644  Jl.  -  .086222  x  -  .0016072  Jl.  -  .086222  x  ;c  -  .018650 

>  evalf(c2(x),5); 

.000023146  -  .000023146  Jl.-  .086222  x 

>  evalf(e2(x),5); 

-.0072359  J 1.-. 086222  X  -t-  .0072359 

>  evalf(ex(x),5); 


.0024120  -  .00080399  ,  -  —  -i-  .000069323  -7 

J 1.-. 086223 X  J 1.-. 086223 X 

-  .00 1 6080  Jl.-. 086223  X 


>  J2{x); 

-.997839749427893  lO  '^ 
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1.  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME: 

/ af s/nd . edu/user4 /j  thomas 5 /Maple/Transport /lDSSsol#lc  .ms 


2 .  ORIGINATOR : 

Dr.  James  P.  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
(219)  631-9371 


3.  HISTORY: 

Written:  21-Jan-1995 
Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 


/ 

/ 

/ 

/ 

/ 


i  - >  X  (ml 


x=0.010 


Deformation  variable  boundary  conditions:  u(0)=0,  S(0.10)=0 
Concentration  variable  boundary  conditions:  c(0)=0,  c{0.10)=le-7 
Reference  concentration  level:  c0=0.0 
Trapping  parameter:  traps=499  (high  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-do/dx)  (mass  flux) 

3.  dS/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl»e-B2*c+B3  (axial  stress) 

5.  de/dx-K2*dc/dx=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2'*c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattice  diffusivity  [m''2/sec] 

K1 : = (Vs*K) / (R*T) 

Vs:=  partial  molar  volume  of  solute  [m"'3/mol  solute] 

K:=  bulk  modulus  =Em/ (3*  (l-2*nu)  )  [N/m^2] 

Em:=  Modulus  of  Elasticity  [N/m^2] 
nu:=  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1  :  =3*K 

B2 : =9  *K*alpha* { 1  + traps ) 

B3 :=B2*co 

traps : =  Csr*Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr : =  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3*alpha* (1+traps) 

alpha: =  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho : =  mass  density  of  the  solid  [kg/m^3] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Dele : =  c-cO  [ 1 ] 
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A1 : =1-2 *nu 

A2 : =2  * ( 1+nu) *alpha* (1+ traps ) 
A3 : =A2*cO 


5 .  REQUIRED  INPUTS : 

Ds:=lattice  diffusivity  [m^2/sec] 

Vs : =  partial  molar  volume  of  solute  [m^3/mol  solute] 
traps ;=  Csr *Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs : =  molecular  weight  of  the  solute  (kg/mol] 

Em:=  Modulus  of  Elasticity  [Pa] 

nu;=  Poisson's  ratio  [1] 

rho : =  mass  density  of  the  solid  [kg/m^S] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits;=trunc(evalhf(Digits)); 


>  J:=Ds*(K1  *K2*c(x)-1  )*diff(c(x),x); 


>  deqn:=diff(J,x)=0; 


Digits  :=  15 


J  ■.=  Ds  {K1  K2  c{x)  -  \) 


—  C(x) 


deqn  :=  Ds  K1  K2 


ydx  j 


+  Ds  {K1  K2  c{x)  -  \) 


5 

^C(X) 

\dx  J 


=  0 


>  csoln:=dsolve(deqn,c(x), explicit); 


Cl 


csoln  :=  c{x)-  -  ■ 


V  - 


1_  fl+2Kl  K2  _C1  X  +  2K1  K2  _C1  __C2 
Cl  '  Cl 


K1  K2 


c{x)  =  - 


f 

^C1 

_ V 


1  J\  +  2K1  K2  _C1  X  +  2K1  K2  __C1  _C2 

_,C1  ^ _ _C7 _ 

K1  K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x) .  The 
boundary  conditions  will  be  used  to  select  the  proper  one. 


>  c1  :=unapply{simplify(op(2,cso!n[1])),x); 


cl  :=  x 


1  +  J\+2K1  K2  _C1  X  +  2K1  K2  __C1  Ic2 


K1  K2 


>  c1(x); 


l+Jl+2KlK2_Clx  +  2KlK2  jCl  ^JC2 

K1  K2 


>  c2:=unapply{simplify(op{2,csoln[2])),x); 
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>  c2(x); 


c2  :=x  - 


-l+Jl+2KlK2_Clx  +  2KlK2  _C1  _C2 
K1K2 


-l+Jl+2KlK2_Clx  +  2KlK2  _C1  _C2 
K1K2 


>  J1  :=unapply(simplify{Ds*(K1  *K2*c1  (x)-1  )*diff{c1  (x),x),x)); 

Ji  ;=  (  )-^Ds  _C1 

>Ji(x): 


DsjCl 

>  J2:=unapply(simpIify(Ds*(K1*K2*c2{x)-1)*diff(c2(x),x))); 

J2  :=  (  )-^Ds  __C1 

>  J2(x); 


Ds  Cl 


Note  #2;  The  above  results  show  that  both  mass  flux  solutions  are  identical 
and  equal  to  Ds*_Cl  where  _C1  is  a  constant  of  integration! 


>  ex1  :=dsolve{diff(e(x),x)-K2*diff{c1  (x),x)=0,e(x)); 

J I  +  2  K1  K2  _C1  x  +  2  K1  K2  _C1  _C2  +  _C3  K1 

K1 

>  e1  ;=unapply(simplify(op(2,ex1  )),x); 

j\+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2  +  _C3  K1 

K1 

>  e1(x); 

J\  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  _C3  K1 


exl  :=  e(x)  =  • 


el  x-^- 


K1 


>  ex2:=dsolve{diff(e(x),x)-K2*diff{c2(x),x)=0,e(x)); 

Jl  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  -  _C3  K1 


ex2  :=  e(x)  =  ■ 


K1 


>  e2:=unapply(simplify(op(2,ex2)),x); 


e2  :=  jt  — > 


Jl  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  -  _C3 


K1 


K1 


>  e2(x); 


Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  -  JC3 


K1 


K1 
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>  uxl  :=dsolve(A1  *diff(u(x),x)+A2‘'c1  (x)-A3-e1  (x)=0,u(x)); 

uxl  :=  u(x)  ^^[-3  A2  X  K1  K2  _C1  -  A2  -  2  A2  K1  K2  _C1  x 

-  2y%r A2  K1  K2  _C1  _C2  +  3A3xKPK2^_C1  +  K2  +  2/^  K2^  K1  _C1  x 
+  2  /%r  K2'^  K1  _C1  _C2  +  3_C3x  Kl^  K2'^  _C1  +  3  _C4  A1  KP  K2'^  _C1 ) / ( A7  Kl^ 
K2^_C1) 

%l\^l+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2 

>  u1  :=unapply(simplify(op(2,ux1  )),x); 

ul  :=x^-(-3A2xKl  K2  Cl  -  A2  1 1 +  2  K1  K2  Cl  x +  2  K1  K2  Cl  C2 
3  -  V  -  -  - 


-2j 

1  +  2  777  772 

_C1  X +  2  Kl  K2 

JCI 

_C2  A2  Kl  K2 

_C1  X 

-2} 

1  +  2  777  772 

_C1  X +  2  Kl  K2 

_C1 

_C2  A2  Kl  K2 

_C1  JC2  + 

3  A3  X  KP  K2^ 

-Cl 

+  2  Kl  K2_ 

Cl  X  +  2K1  K2  _ 

Cl  _ 

C2  K2 

+  2. 

/ 1  +  2  777  772 

_C1  X +  2  Kl  K2 

-Cl 

_C2  K2^  Kl  _ 

Cl  X 

+  2. 

1 1 +2  Kl  K2 

JC1X  +  2K1  K2 

-Cl 

_C2  K2^  Kl  _ 

Cl  _C2  +  3 

_C3  X  KP  K2^  _ 

Cl 

+  3  _C4  A1  KP  K2^  _C1  )/(A7  KP  K2'^  _C1 ) 

_____ 

^[-3A2xKl  K2  _C1  -  A2  -  2  A2  K1  K2  _C1  x-2  Jm  A2  K1  K2  _C1  _C2 

+  3A3x  Kl^  K2^  _C1  +  K2  +  2  K2^  K1  _Clx  +  2  Jm  K2'^  K1  _C1  _C2 

+  3_C3x  KI^  K2^  _CI  +  3  _C4  A1  Kl^  K2^  _C1 ) /  ( Ai  Kl-  K2^  ^CI ) 

%l  :=  1+2  K1  K2  _C1  x+ 2  KI  K2  _C1  _C2 

>  ux2:=dsoIve(A1  *diff(u(x),x)+A2*c2(x)-A3-e2(x)=0,u(x)); 

ux2  :=  u(x)  =  -  ^[3  A2  X  Kl  K2  _C1  -  A2  /%T  -  2  /%!  A2  Kl  K2  _C1  x 

-  2  y%r  A2  Kl  K2  _C1  _C2  -  3  A3  x  Kf  K2^  jCl  +  J%1  K2  +  2  K2^  Kl  _C1  x 

+  2  K2^  Kl  _C1  _C2  -3  _C3x  KP  K2'^  _C1  -  3  _C4  Al  Kf  K2^  JCl ) / ( A7  Kf 

K2^  _C1 ) 

%1  :=  1  +  2  7^7  7^2  __Ci  X  +  2  Kl  K2  _C1  _C2 

>  u2:=unappIy(simplify(op(2,ux2)),x); 

m2  :=  X  ^  -  (-3  A2  X  777  772  Cl  +  A2  1 1 +2  Kl  K2  Cl  x  +  2Kl  K2  Cl  C2 
3  -  V  -  -  - 
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+  ijl +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  A2  K1  K2  _C1  x 

+  2  Jl  +  2K1  K2  _C1  X  +  2K1  K2  __C1  _C2  A2  K1  K2  _C1  _C2  +  3  A3  x  KP  K2^  _C1 

-Jl+2KlK2_Clx  +  2KlK2  jCl  _C2  K2 

-2J1  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  _C1  x 

-  2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  _C1  _C2  +  3  _C3x  KP  K2^  _C1 
+  3  _C4  A1  KP  K2‘^  _C1 )  /(Al  KP  K2^  _C1 ) 

>  u2(x); 

^[-3  A2xKl  K2  _C1  +  A2  +  2  A2  K1  K2  _Clx  +  2  A2  K1  K2  _C1  _C2 

+  3  A3  xKP  K2^  _C1  -  /%r  K2  -  2  K2^  K1  _Clx -2  K2^  K1  _C1  _C2 

+  3_C3x  KP  K2'^  _Cl  +  3  _C4  Al  KP  K2^  _C1 ) / (Al  KP  K2^  _C1 ) 

%l:=l+2Kl  K2  _C1  x  +  2  K1  K2  _C1  _C2 

>  S1  :=x->simplify(B1  *e1  (x)-B2‘c1  (x)+B3); 

51  :=x-^  simplify(57  el(j:)  -  B2  c1(j:)  +  B3) 

>  S1  (X); 

(b1  K2  J1+2KI  K2  _C1  X  +  2K1  K2  _C1  _C2  +  B1  K2  _C3  K1  -  B2 

-B2  J 1+2  K1  K2_C1  x  +  2  K1K2_C1  _C2  +  B3  K1  K2)I{K1  K2) 

>  S2:=x->simplify(B1  *e2(x)-B2*c2(x)+B3); 

52  :=x  ^  simplify(B7  e2(x)  -  B2  c2{x)  +  B3) 

>  S2{x); 

-[b1K2  J\+2K1  K2_C1x  +  2K1  K2  _C1  _C2  -  B1  K2  _C3  K1  +  B2 

-  B2  Jl  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  -  B3  K1  K2)  j {K1  K2) 

Note  #3:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 

>  K:=(Em/(3‘(1-2*nu))); 


>  lambda:=(Em*nu)/((1+nu)*(1-2*nu)); 


>  mu:=Em/(2*(1+nu)); 


>  alpha:=(rho*Vs)/(3*MWs); 


K:= 


Em 
3  -  6  V 


X:=' 


Em  V 


(l+v)(l  -2v) 


Em 


|i:= 


2  +  2  V 
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>  K1:=:(Vs*K)/(R*T): 


1  p  V-y 
3  MWs 


>  K2:=3*alpha‘{1+traps); 


>K1*K2; 


>  A1:=(1-2*nu); 


Vis  Em 

K1  := - 

(3-6v)/?r 


K2  := 


p  Vis  ( 1  +  traps ) 
MWs 


Vs^  Em  p  ( 1  +  traps) 
{3-6v)RTMWs 


>  A2;=2*(1+nu)*alpha‘(1+traps); 


Ai  ;=  1  -2v 


>  A3;=A2*cO! 


2  (l+v)pVls(l  +  traps) 

A2  := - 

3  MWs 


>  B1:=3*K; 


2(l+v)pVs(l  +  traps)  cO 

A3  := - 

3  MWs 


>  B2:=9*K*alpha*(1+traps); 


>  B3:=B2*cO; 


Em 

B1  :=  3 - 

3  -  6  V 


^  Em  p  Vis  ( 1  +  traps ) 
{3-6\)MWs 


Em  p  Vs  ( 1  +  traps )  cO 

B3  :=  3 - 

(3-6v)MWs 
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>  c1(x); 

r 


1  +  1 1  +  2  P  ( 1  +  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 


{2>-6v)RTMWs 
MWsj ( Vs^  Em  p  ( 1  +  traps)) 


{?>-6v)RTMWs 


(3-6v)7?r 


>  c2(x); 

r 


^  ^  ^  Vs^  Em  p  ( 1  +  traps)  _C1  x  ^  Em  p  ( 1  +  traps)  _C1  _C2 


V  j  (3-6v)RTMWs 

MWs  /  ( Vs^  Em  p  ( 1  +  traps ) ) 


(3-6v)RTMWs 


(3-6v)RT 


>e1(x); 

t' 


^  ^  Vs'^  Em  p  ( 1  +  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  jCl  _C2  _C3  Em 


(3-6v)RTMWs 
(3-6v)RTliVsEm) 


i3-6v)RTMWs 


i3-6v)RT 


>  e2(x); 


r 


^  ^  Vs^  Em  p  ( 1  +  traps )  _C1  x  ^  Vs^  Em  p  ( 1  +  traps )  _C1  _C2  _C3  Vs  Em 


Vj  (3-6v)RTMWs 

{3-6v)RTl(VsEm) 


(3-6v)RTMWs 


(3-6v)RT 


>u1(x); 


-2 


MWs 


( 1  +  V )  p^  ( 1  +  traps  f  x  Em  _C1  2  ( 1  +  v)  p  ( 1  +  traps)  J%1 
MWs^(3-6v)RT  ~3 

4  J%1  ( 1  +  V )  p^  ( 1  +  traps  Em  _C1  x 

3  MWs^(3-6v)RT 

4  ( 1  +  V)  p^  V.y^  ( 1  +  traps  f  Em  _C1  _C2 

"3 


MWs^{3-6v)RT 


+  2 


( 1  +  V )  p^  ( 1  +  traps  f  cO  X  Em^  _C1  J%1  p  ( 1  +  traps ) 


MWs^  (3  -  6  V)  R^  P 


MWs 


^  ^  J %l  p^  Vs^  ( 1  +  traps  f  Em  _C1  x  ^  J%1  p^  Vs^  ( 1  +  traps')'  Em  _C1  _C2 
MWs^  (3  -6v)  RT  MWs^{3-6v)RT 

^  ^-C3x  y/  Ern^  p^  ( 1  +  traps  f  _C1  ^  ^  _C4  ( 1  -  2  v)  y/  p^  ( 1  +  traps  f  _C1 
{3 -6vf  R3P  MWs^  (3  -6vf  R^P  MWs^ 


(3-6yf  R^P  MW52 /(( 1  -  2  V)  y/  EnV-  p^  ( 1  +  trapsf  _C1 ) 
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*7  1  •-  1  +  2  P  ( 1  +  traps)  _C1  x  ^  Em  p  ( 1  +  traps)  _C1  _C2 


{2-6v)RTMWs 


(3  -6v)RTMWs 


>  u2(x); 

r 

1 


^  ( 1  +  v)  ( 1  +  traps')'  X  Em  _C1  2(l+v)pVj'(l  +  traps)  J%1 
MWs'^(3-6v)RT  3  MWs 


+ 


+ 


4  J%1  ( 1  +  V )  p^  Vs^  ( 1  +  traps')'  Em  _C1  x 

3  MWs^{3-6\)RT 

4  ( 1  +  V)  p^  V.y^  ( 1  +  traps)'^  Em  _C1  _C2 

3  MWs^{3-6v)RT 

( 1  +  V )  p^  Vs^  ( 1  +  traps  f  cO  x  Em^  _C1  J%1  p  V5  ( 1  +  traps) 

MWs'^  (3  -6vf  R^P 

J%1  p^  ( 1  +  traps  f  Em  _C1  x  J%1  p^  ( 1  +  traps  f  Em  _C1  _C2 

MWs^{3-6v)RT  "  MWs^{3-ev)RT 

_C3  X  y/  Em^  p^  ( 1  +  traps  f  _C7  ^  ^  _C4  ( 1  -  2  v)  Em^  p^  ( 1  +  trapsf  _C1 
(3-6vf  R^PMWs^ 


+  2 


+  3 


(3-6v)  R^PMWs^ 

(3  -  6  vf  j2  MWs^l[{\  -  2  V)  Ern^  p^  ( 1  +  trapsf  _Cl) 


^  ^  2  2  P  ( ^  +  traps )  _C1  x  ^  Vs^  Em  p  ( 1  +  traps )  _C1  _C2 


(3  -6w)  RTMWs 


(3-6v)RTMWs 


>S1(x); 


>  S2(x); 


( MWs  __C3  Vs  Em  -  3  RT  MWs  +  6  RT  MWs  v  +  Em  p  Vs'^  cO  +  Em  p  Vs'^  cO  traps )  j  ( 
(-1  +2v)  Vs  MWs) 


-  {MWs  _C3  Vs  Em-3  R  T  MWs  +  6R  T  MWs  v  +  Em  p  cO  +  Emp  cO  traps)!  ( 

(-1  +2v)  Vs  MWs) 

>  S1(x)-S2(x); 

0 


Note  #4:  The  stresses  are  same  for  each  solution  root,  and  do  not  depend  on 
the  position  x!  The  stresses  are  therefore  constant  throughout  the 
body.  We  v/ill  solve  for  _C3  in  terms  of  the  boundary  stress,  SO. 


>  _C3:=simplify(solve(S1{x)=S0,_C3)); 

_C3  :=  -  (-3  R  T  MWs  +  6  RT  MWs  v  +  Em  p  Vs^  cO  +  Em  p  Vs^  cO  traps  -  SO  Vs  MWs 
+  2  SO  Vs  MWsv)l {Em  MWs) 
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5.21047253390476 

>  Rh:=R/lViWs; 

Rh  :=  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

7815.70880085715 

>  K1‘K2; 

.108012528605276  10’ 

>  1/(K1*K2); 

.925818525788271  lO'^ 

>  A1; 

.4 

>  A2; 

6773.61429407620 

>  A3; 

0 

>B1; 

.500000000000001  10'2 

>  B2; 

.390785440042860  10'^ 

>  B3; 

0 

V 

1 

o 

CO 

.00723592800000000 

>  S1(x); 

0 

>  S2{x); 

0 

Note  #6 : 

Now  let's  solve  for  the  integration  constants;  _C1,  __C2,  and  _C4 ,  using  the 
boundary  data. 

>  c1(x); 

.925818525788271  lO'^  +  .925818525788271  lO'^ 

j  1  +  .216025057210552  10’  _C1  x  +  .216025057210552  10’ 

JCI 

_C2 

>  c2(x); 

.925818525788271  lO'^  -  .925818525788271  lO'^ 

J 1  +  .216025057210552  10’  _C1  x  +  .216025057210552  10’ 

^C1 

_C2 

>  evalf(c1(x),5); 
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.92584  10-6  +  92584  Jl.  +  .21602  10'^  _C1  x  +  .21602  10'^  _C1  _C2 

>  eqnsetl  :={0=c1  (0),1  e-7=c1  (0.1 0)}; 

eqnsetl  ;={.!  lO’^  =  .925818525788271  lO'^  +  .925818525788271  lO-^ 

J 1  +  216025.057210552  _C1  +  .216025057210552  10^  _C1  _C2,0  = 
.925818525788271  lO'^ 

+  .925818525788271  lO-^  Jl  +  .216025057210552  10^ _C1  _C2  } 

>  varsetl  :={_C1  ,_C2}; 

varsetl  :=  { _C1,  _C2  ) 

>  solnset1:=solve(eqnset1, varsetl); 


solnsetl  := 


>  eqnset2:={0=c2(0),1e-7=c2{0.10)}; 

eqnset2  :=  {o  =  .925818525788271  lO’^ 

-  .925818525788271  lO'^  J 1  +  .216025057210552  10’  _C1  _C2,  .1  10-6  = 
.925818525788271  10-6  -  .925818525788271  io-6 
J 1  +  216025.057210552  _C1  +  .216025057210552  10’  _C1  _C2  } 

>  varset2:=LC1,_C2}; 

varset2  { _C1,  _C2  } 

>  solnset2;=solve(eqnset2,varset2); 

solnset2  :=  { _C1  =  -.945993735697361  10-6,  _C2  =  0 } 

>  assign(solnset2); _ _ 


Note  #7:  The  solution  cl(x)  is  not  capable  of  satisfying  the  boundary 

conditions,  as  evidenced  by  the  lack  of  solution  for  the  given 
boundary  conditions.  The  concentration  function  c2 (x)  is  the 
correct  solution  in  this  case! 


>  c2(x); 

.925818525788271  10-6  -  .925818525788271  io-6  J 1  -  2.04358350874846  x 

>  p1:=pIot(1e6*c2(x/100),x=0..10,title=‘Concentration,  c2(x)  [ppm]‘); 

>  p1; 


Concentration,  c2(x)  [ppm] 
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>  u2(x); 


.00241197599999993  x  +  .000786845261334466  J  1  -  2.04358350874846  x 

-  .00160798399999998  J 1  -  2.04358350874846  x  x  +  .999999999999996  _C4 

>  _C4:=solve(u2{0)=0,_C4); 

_C4  :=  -.000786845261334469 

>  u2(x); 

.00241 197599999993  x  +  .000786845261334466  Jl  -  2.04358350874846  x 

-  .00160798399999998  / 1  -  2.04358350874846  x  x -  .000786845261334466 
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>  ex:=unapply(diff(u2(x),x),x); 

1 

ex  :=  X  ^  .00241197599999993  -  .000803991999999993  ,  — -- . — - . 

/ 1  -  2.04358350874846  x 


+  .00164302479236567  , 

J 1  -  2.04358350874846  x 

-  .00160798399999998  J 1  -  2.04358350874846 x 

>  ex(x); 

1 

.00241197599999993  -  .000803991999999993  , 

1  -  2.04358350874846  x 


+  .00164302479236567  ,  . 

/ 1  -  2.04358350874846  x 


-  .00160798399999998  J 1  -  2.04358350874846  x 

>  p5:=plot(1e6*ex(x/100),x=0..10,title=‘Axial  Strain,  ex(x)  [ue]‘): 

>  p5; 


Axial  Strain,  ex(x)  [ue] 


>  evalf(u2(x),5); 

.0024118  X  +  .00078643  jl.  -2.0436  x  -  .0016069  Jl.  -2.0436  x  x  -  .00078689 

>  evalf(c2(x),5); 

.92584  10-6  -  .92584  lO'^  Jl.  -  2.0436  x 

>  evalf{e2{x),5); 

-.0072359  Jl.- 2.0436 X  +  .0072366 

>  evalf(ex(x),5); 

.0024120  -  .00080399  ,  -  ^  +  .0016430  ,  ■■■—  -  -  .0016080  Jl.  -2.0436  x 

Jl.- 2.0436  X  J 1.- 2.0436  X 


>  J2(x); 

-.945993735697361  lO'’^ 
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3.  HISTORY: 

Written:  June-1994 
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4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 


/ 

/ 

/ 

/ 

/ 


- > 


x=0  x=0.010 


X 


[m] 


Deformation  variable  boundary  conditions:  u(0)=0,  S(0.10)=0 
Concentration  variable  boundary  conditions:  J(0)=0,  c(0.10)=le-7 
Reference  concentration  level:  c0=0.0 
Trapping  parameter:  traps=19  (low  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  ds/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl»e-B2 *c+B3  (axial  stress) 

5.  de/dx-K2*dc/dx=0  (dilational  strain  gradient) 

6.,  e=Al*du/dx+A2*c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattice  diffusivity  [m^2/sec] 

K1 := (Vs*K) / (R*T) 

Vs : =  partial  molar  volume  of  solute  (m^3/mol  solute] 

K:=  bulk  modulus=Em/ (3*  (l-2*nu)  )  [N/m''2] 

Em:=  Modulus  of  Elasticity  [N/m''2] 
nu:=  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1:=3*K 

B2 : =9*K*alpha* ( 1+ traps ) 

B3 :=B2*co 

traps : =  Csr *Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr:=  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* ( 1  +  traps ) 

alpha:=  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho :  =  mass  density  of  the  solid  [kg/m''3] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Delc:=  c-cO  [1] 
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A1 : =l-2*nu 

A2 : =2  * ( 1  +  nu) *alpha* ( 1  + traps ) 
A3 : =A2*cO 


5.  REQUIRED  INPUTS: 

Ds:=lattice  diffusivity  (m^2/sec] 

Vs : =  partial  molar  volume  of  solute  [m^3/mol  solute] 
traps : =  Csr*Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Em:=  Modulus  of  Elasticity  [Pa] 

nu:=  Poisson's  ratio  [1] 

rho :  =  mass  density  of  the  solid  [kg/m''3] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  restart; 

>  Digits:=trunc(evaIhf(Digits)); 


Digits  :=  15 


>  J:=Ds*(K1  *K2*c(x)-1  )‘cliff(c{x),x); 


J  ■.=  Ds  {K1  K2  c{x)  -  \) 


—  c(a;) 

ydx  j 


>  deqn:=J=0; 


deqn  -  Ds  {K1  K2  c{x)  -  \) 


^3 

—  c(x) 

j 


=  0 


>  csoIn:=dsoIve(deqn,c(x), explicit); 


1 

csoln:=c(x)  = - ,  c(x)=  Cl 

K1K2 


Note  trl:  There  are  apparently  two  "roots"  to  the  solution  for  c(x).  The 
first  solution  is  obviously  incorrect  in  that  the  concentration 
throughout  the  rod  is  defined  in  terms  of  the  constants  K1  and  K2 . 
The  second  solution  is  adopted  as  correct. 


>  c2:=unappiy(simplify(op(2,csoin[2])),x); 


>  c2(x); 


c2  :=x  ^  _C1 
Cl 


>  J2;=unappiy(simplify(Ds*(K1*K2*c2(x)-1)*diff(c2{x),x))); 


J2  :=0 


>  J2{x); 


0 


Note  #2:  The  above  results  show  that  the  mass  flux  is  identically  zero,  as 
it  should  be . 
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>  e2:=x->_C2; 


>  e2(x); 


e2'.-X-^  _C2 
C2 


_  p  Vs  (1+ traps) 

KZ 

MWs 

>  K1*K2; 

Vs^  Em  p  ( 1  +  traps ) 

{3-6v)RTMWs 

>  A1:=(1-2*nu); 

A7  :=  1  -  2v 

>  A2:=:2*(1+nu)*alpha*(1+traps); 

2(l+v)pys'(l  +  traps) 

3  MWs 

>  A3:=A2*cO; 

2(l+v)pVi(l  +  traps )  cO 

A3 

3  MWs 

>  B1:=3*K; 

Em 

B1  :=  3 - 

3-6v 

>  B2:=9‘K*alpha*(1+traps); 

Em  p  ( 1  +  traps) 

B2  3 

(3-6v)MWs 

>  B3;=B2*cO; 

Em  p  yi'  ( 1  +  traps)  cO 
{3-6v)MWs 

>  c2(x); 

^C1 

>  e2(x); 

_C2 

>  u2{x); 

2x(l+v)py5(l  +  traps )  _C1  2jc(l+v)py5'(l  +  traps )  cO 

- - - + - +  X  C2 

I  3  MWs  3  MWs 


+  _CJ(1  -  2v) 


l/(l-2v) 


>  S2{x); 


Em  ( -_C2  MWs  +  p  _C1  +  p  _C1  traps  -  p  Vs  cO  -  p  Vs  cO  traps ) 

{-l+2v)MWs 
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Note  #4:  Now  we  will  introduce  numerical  values  for  the  material  properties. 

The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 

>  S0:=0.0; 

S0:=0 

>  Ds:=1e-9; 

Ds:=.\  10-^ 

>  Vs:=2.02e-6; 

V:s  :=  .202  10-5 

>  traps:=19; 

traps  ;=  19 

>  c0:=0.0; 

cO  :=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em:=200e9; 

Em  :=  .200  lO*^ 

>  nu:=0.3; 

v:=  .3 

>  rho:=7800; 

p  :=  7800 

>  T:=293; 

T  :=  293 

>R:=8.31696; 

R  :=  8.31696 

>K; 

.166666666666667  10’^ 

>  lambda; 

.115384615384616  lO’^ 

>  mu; 

.769230769230769  10” 

>  alpha; 

5.21047253390476 

>  Rh:=R/MWs; 

8251.19795232001 

>  K1; 

138.155406787625 

>  K2; 

312.628352034286 

>  K1*K2; 
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>  1/(K1*K2); 

>  A1; 

>  A2; 

>  A3; 

>B1; 

>  B2; 

>B3; 


43191.2971486416 

.0000231528123954816 

.4 

270.944571763048 

0 

.500000000000001  10’2 
.156314176017143  10'^ 
0 


Note  #6: 

Now  let's  solve 
boundary  data. 

for  the  integration  constants:  _C1,  _C2 ,  and  _C3,  using  the 

>  c2(x); 

-Cl 

>_C1:=1e-7; 

_C1  :=.l  10-^ 

>  c2(x); 

.1  10-6 

>  u2(x); 

-.0000677361429407620  x  +  2.50000000000000  x  _C2  +  1 .00000000000000  _C3 

>  S2(x); 

.500000000000001  10'2_C2-. 156314176017143  10^ 

>  _C2:=solve{S2(0.1)=0.0,_C2); 

_C2 :=  .0000312628352034285 

>  S2(x); 

0 

>  u2(x); 

.0000104209450678093  x  +  1.00000000000000  _C3 

>  _C3:=solve(u2(0.0)=0,_C3); 

_C3  :=  0 

>  u2(x); 

.0000104209450678093  x 
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>  ex:=unapply(diff(u2(x),x),x); 


e;c  :=  .0000104209450678093 


>  ex(x); 


.0000104209450678093 

>  p3:=plot{1e6*ex(x/100),x=0..10,title=‘Axial  Strain,  ex(x)  [ue]‘): 

>p3; 


Axial  Strain,  ex(x)  [ue] 

11.4'  ■ 

11.2" 

11" 

10.8" 
lO.G'  ■ 

10.4' ' 

10.2" 

10" 

9.8" 

9.6" 


X 


>  evalf(10''6*u2(x),5); 


>  evalf(c2(x),5); 


>  evalf(10''6*e2(x),5); 


10.420  X 
.1  10-6 
31.263 


>  evalf(10''6*ex(x),5); 


10.421 
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3.  HISTORY: 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 


/I 

/I 

/| 

/I 

/| 


- >  X  [m] 


x=0  x=0.010 


Deformation  variable  boundary  conditions:  u(0)=0,  S(0.10)=0 
Concentration  variable  boundary  conditions:  J(0)=0,  c(0.10)=le-7 
Reference  concentration  level:  c0=0.0 
Trapping  parameter:  traps=499  (high  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  ds/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2*c+B3  (axial  stress) 

5.  de/dx-K2*dc/dx=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2*c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattice  diffusivity  [m''2/sec] 

Kl:=(Vs*K) / (R*T) 

Vs : =  partial  molar  volume  of  solute  [m^3/mol  solute] 

K:=  bulk  modulus=Em/ (3*  (l-2*nu)  )  [N/m''2) 

Em:=  Modulus  of  Elasticity  [N/m^2] 
nu:=  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1 : =3*K 

B2 : =9*K*alpha* (1+traps) 

B3 : =B2  *co 

traps  :=  Csr *'Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr : =  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* (1  +  traps ) 

alpha:=  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho : =  mass  density  of  the  solid  [kg/m^3] 

MWs : =  molecular  weight  of  the  solute  (kg/mol] 

Delc:=  c-cO  [1] 


A-le-1 


A1 : =1-2  *nu 

A2 : =2  * ( 1+nu) *alpha* ( 1+ traps) 
A3 : =A2*cO 


5 .  REQUIRED  INPUTS : 

Ds:=lattice  diffusivity  [m^2/sec] 

Vs :  =  partial  molar  volume  of  solute  [m''3/mol  solute] 
traps : =  Csr*Kr=trapping  constant  [1] 
cO : =  reference  solute  concentration  [1] 

MWs;=  molecular  weight  of  the  solute  [kg/mol ) 

Em:=  Modulus  of  Elasticity  [Pa] 

nu:=  Poisson's  ratio  [1] 

rho : =  mass  density  of  the  solid  [kg/m^3] 

T:=  temperature  [K] 


6 .  SYMBOLIC  ANALYSIS : 


>  Digits:=trunc(evalhf(Digits)); 


Digits  :=  15 


>  J:=Ds*{K1  *K2*c{x)-1  )*diff(c(x),x); 


J  :=  Ds  (K1  K2  c{x)  - 1) 


—  c(x) 

^dx  J 


>  deqn:=J=0; 


deqn  \^Ds  {Kl  K2  c{x)  -  \  ) 


—  c(x) 

ydx  j 


=  0 


>  csoIn:=dsolve(deqn,c(x), explicit); 


1 

csoln  zix)  - - c(a:)=  Cl 

K1K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x) .  The 
first  solution  is  obviously  incorrect  in  that  the  concentration 
throughout  the  rod  is  defined  in  terms  of  the  constants  K1  and  K2 . 
The  second  solution  is  adopted  as  correct. 


>  c2:=unapply(simplify(op(2,csoln[2])),x); 


>  c2(x); 


c2  :=x  _C1 

Cl 


>  J2:=unapply(simplify(Ds*(K1*K2*c2(x)-1)*diff(c2{x),x))); 

J2  ;=0 


>  J2(x); 


0 


Note  #2:  The  above  results  show  that  the  mass  flux  is  identically  zero,  as 
it  should  be. 
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>  e2:=x->_C2; 


>  e2(x); 


e2  :=x^  C2 


>  ux2:=dsolve(A1  *diff{u{x),x)+A2*c2(x)-A3-e2(x)=0,u(x)); 

xA2_Cl-xA3-x  _C2  -  _C3  A1 
ux2  :=  u(x)  =  - - 


>  u2:=unapply{simplify{op(2,ux2)),x); 


u2  :=  X 


xA2  C1-XA3-X  C2-  C3  A1 


>  u2(x); 


jcA2  C1-XA3-X  C2-  C3  A1 


>S2:=x->simplify(B1*e2(x)-B2*c2(x)+B3); 


>  S2(x); 


S2  :=  X  simplify(57  e2(x)  -  B2  c2(x)  +  B3) 


B1  C2-B2  CI+B3 


Note  #3:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 


>  K:=(Em/(3*(1-2*nu))); 


>  lambda:=(Em*nu)/((1+nu)*(1-2*nu)); 


>  mu:=Em/(2*(1+nu)); 


>  alpha:=(rho*Vs)/(3*MWs); 


>  K1  :=(Vs*K)/(R*T); 


3  -  6  V 


Em  V 


(l+v)(l-2v) 


2  +  2  V 


1  p 

3  MWs 


>  K2:=3*alpha*(1+traps); 


Vs  Em 

(3-6v)RT 
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p  Vs  (1+ traps) 

MWs 

>  K1*K2; 

Vs'^  Em  p  ( 1  +  traps ) 

{3-6v)RTMWs 

>  A1:=(1-2*nu); 

A1  :=l-2v 

>  A2:=2*'(1+nu)*alpha*(1+traps); 

2(l+v)py5(l  +  traps ) 

A2 

3  MWs 

>  A3:=A2*cO; 

2(l+v)p\4(l  +  traps )  cO 

A3 

3  MWs 

>  B1:=3‘K; 

Em 

B1  :=  3 - 

3-6v 

>  B2:=9*K‘'alpha*(1+traps); 

Em  p  14  ( 1  +  traps) 

B2  3 

{3-()V)MWs 

>  B3:=B2*cO: 

Em  p  Vi’  ( 1  +  traps )  cO 

i3-6v)MWs 

>  c2(x); 

_C1 

>  e2{x); 

_C2 

>  collect(u2(x),x); 

( 


2  (l+v)pVs(l  +  traps )  _C1  2(l+v)pV^(l  +  traps )  cO 


MWs 


3 


MWs 


C2 


1  -2v 


+  C3 


>  S2(x); 


Em  ( -_C2  MWs  +  p  Vi'  _C1  +  p  ’14'  Cl  traps  -  p  Vs  cO  -  p  Vs  cO  traps ) 

{-l+2v)  MWs 
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Note  #4:  Now  we  will  introduce  numerical  values  for  the  material  properties. 
The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 


>  Ds:=1e-9; 

Ds:=.l  10-» 

>  Vs:=2.02e-6; 

:=  .202  10-5 

>  traps:=499; 

traps  :=  499 

>  c0:=0.0; 

c0:=0 

>  MWs:=0.001 00797; 

MWs  -  .00100797 

>  Em:=200e9; 

Em  :=  .200  lO'^ 

>  nu:=0.3; 

v:=.3 

>  rho:=7800; 

p  :=  7800 

>  T:=293; 

T  :=  293 

>  R:=8.31432; 

8.31432 

>K; 

.166666666666667  10*^ 

>  lambda; 

.115384615384616  lO'^ 

>  mu; 

.769230769230769  10“ 

>  alpha; 

5.21047253390476 

>  Rh:=R/MWs; 

Rh  :=  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

7815.70880085715 

>  K1*K2; 

.108012528605276  10^ 
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>  1/(KrK2); 

.925818525788271  10'^ 

>  A1; 

.4 

>  A2; 

6773.61429407620 

>  A3; 

0 

>  B1; 

.500000000000001  10‘2 

>  B2; 

.390785440042860  10'® 

>  B3; 

0 

Note  #6:  Now  let's  solve 
boundary  data. 

for  the  integration  constants:  _C1,  _C2,  and  _C3 ,  using  the 

>  c2(x); 

_C7 

>_C1:=1e-7; 

_C1  :=.l  10® 

>  c2(x); 

.1  10-® 

>  u2(x); 

-.00169340357351905  x  +  2.50000000000000  x  _C2  +  1.00000000000000  _C3  j 

>  S2(X); 

.500000000000001  10'2  _C2  -  .390785440042860  10®  | 

>  _C2:=solve(S2(0.1)=0.0,_C2); 

_C2 :=  .000781570880085718 

>  S2{x); 

0 

>  u2(x); 

.000260523626695245  x  +  1 .00000000000000  _C3  I 

>  _C3:=solve(u2(0.0)=0,_C3); 

_C3  :=  0 

>  u2(x); 

.000260523626695245  x 

>  e2{x); 

.000781570880085718 
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3 .  HISTORY : 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below; 

/  _  \ 

/  \ 

/  \  >  X  [m] 

/  _  \ 

/  \ 

x=0  x=0.010 

Deformation  variable  boundary  conditions;  u(0)=0,  u(0.10)=0 
Concentration  variable  boundary  conditions:  c(0)=0,  c(0.10)=le-6 
Reference  concentration  level:  c0=0.0 
Trapping  parameter;  traps=19  (low  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds’' (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  ds/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2*c+B3  (axial  stress) 

5.  de/dx-K2*dc/dx=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2*c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattioe  diffusivity  [m^2/sec] 

Kl:=(Vs*K) / (R*T) 

Vs : =  partial  molar  volume  of  solute  [m"3/mol  solute] 

K:=  bulk  modulus=Em/ { 3 * ( l-2*nu) )  [N/m^2] 

Em;=  Modulus  of  Elasticity  [N/m''2] 
nu : =  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1 : =3*K 

B2 : =9  *K*alpha* ( 1  + traps) 

B3 : =B2*co 

traps:=  Csr*Kr=trapping  constant  [1] 

Csr;=  saturation  trap  concentration  [1] 

Kr : =  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* ( 1  + traps ) 

alpha: =  {rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 

rho :  =  mass  density  of  the  solid  [kg/m''31 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Dele : =  c-cO  [1] 
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Al:=l-2*nu 

A2 : =2* (1+nu) *alpha* (1+traps) 
A3 : =A2*cO 


5 .  REQUIRED  INPUTS : 

Ds:=lattice  diffusivity  [m^2/sec) 

Vs :  =  partial  molar  volume  of  solute  [m''3/mol  solute] 
traps : =  Csr *Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Em;=  Modulus  of  Elasticity  [Pa] 
nu:=  Poisson's  ratio  [1] 

rho : =  mass  density  of  the  solid  [kg/m"3] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits:=trunc(evalhf(Digits)); 


>  J  :=Ds*(K1  *K2*c(x)-1  )*dif f(c(x),x); 


>  deqn:=diff(J,x)=0; 


Digits  ;=  15 


J Ds  (K1  K2  c(x)  -  1) 


fd  ] 

{dx  J 


deqn  :=  Ds  K1  K2 


^d  ^ 

—  c{x) 
dx 


+  Ds  {K1  K2  c{x)  -  \) 


92  A 


=  0 


>  csoln:=dsolve(deqn,c(x), explicit); 


csoln  \=  c{x)  =  - 


Cl 


Cl 


1  J\  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2 

_C1  ' _ _ _ 

KI  K2 

1  j\+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2 


c(x) 


Cl 


•  + 


Cl 


Kl  K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x) ,  The 
boundary  conditions  will  be  used  to  select  the  proper  one. 


>  c1:=unapp!y(simplify(op{2,csoln[1])),x); 


cl  '.=  X 


1  +  j\  +  2Kl  K2  _C1  X  +  2K1  K2  _C1 


Kl  K2 


>  c1(x); 


\+j\+2KlK2jClx  +  2  Kl  K2  _C1  _C2 
Kl  K2 


A-2a-2 


>  c2:=unapply(simplify(op(2,csoln[2])),x); 


>  c2(x); 


c2  :=x—>  - 


-l+Jl+2Kl  K2_CI  X  +  2KJ  K2  JCI  _C2 
K1  K2 


-l+J\+2Kl  K2  _Clx  +  2Kl  K2  jCl  _C2 
K1K2 


>  J1  :=unapply(simplify(Ds*(K1*K2*c1(x)-1)*diff(c1(x),x),x)); 

Jl\={  )-^Ds  _C1 

>J1(x); 


DsjCl 

>  J2;=unapply(simplify(Ds*(K1*K2*c2{x)-1)*diff(c2(x),x))); 


>  J2(x); 


72  :=  (  )^Ds  _C1 
Ds  Cl 


Note  #2:  The  above  results  show  that  both  mass  flux  solutions  are  identical 
and  equal  to  Ds*_Cl  where  _C1  is  a  constant  of  integration! 

>  ex1  :=dsolve(diff(e(x),x)-K2*diff(c1(x),x)=0,e(x)): 


exl  :=  e(x) = 


Jl+2K1  K2_Clx  +  2Kl  K2  _C1  _C2  +  _C3  K1 

K1 


>  e1:=unapply(simplify(op(2,ex1)),x); 


el  :=  jc  — > 


Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  JC3  K1 


K1 


>e1(x); 


Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  _C3  K1 

K1 

>  ex2:=dsolve(diff(e(x),x)-K2*diff{c2(x),x)=0,e(x)); 


ex2  :=  e(x) = 


-j\+2Kl  K2  JCI  x  +  2  K1  K2  _C1  +  _C3  K1 


K1 


>  e2:=unapply(simplify(op(2,ex2)),x); 


e2  =  X 


-J\  +  2K1  K2  _C1  x  +  2  K1  K2  _C1  +  _C3  K1 


K1 


>  e2(x); 


-J\+2K1  K2  _C1  X  +  2  K1  K2  _C1  _C2  +  _C3  K1 

K1 
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>  ux1  :=dsoIve(A1*diff(u(x),x)+A2*c1(x)-A3-€l{x)=0,u(x)); 

uxl  ;=  u(;c)  =  i  ( -3  A2  x  K1  K2  _C1  -  A2  -  2  A2  K1  K2  _C1  x 

-  2  A2  K1  K2  _C1  _C2  +  3  A5  x  Kl'^  K2^  _C1  +  K2  +  2  K2'^  K1  _C1  x 

+  2  Jm  K2^  K1  _C1  _C2  +  2  JOS  X  Kl^  K2^  _C1  +  3  _C4  A1  Kl^  K2'^  _C1 )/ ( Ai  Kl'^ 
K2^_C1) 

%l:=l+2Kl  K2_Clx  +  2  K1  K2  _C1  J02 

>  u1  :=unapply(simplify{op(2,ux1)),x); 

ul-=x-^-{-2A2xKlK2  Cl  -  A2  \\ +2  K1  K2  Clx  +  2K1K2  Cl  C2 
3  -  >/  -  -  - 

-2J1+2KI  K2  _C1  X  +  2K1  K2  _C1  _C2  A2  K1  K2  jCl  x 

-  2  Jl+2KlK2_Clx  +  2KlK2  _C1  _C2  A2  K1  K2  _C1  J02  +  3  AJ  x  Kl'^  K2^  _C1 
+  J\ +2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2 

+  2  J\+2K1  K2  _C1  X  +  2K1  K2  JCI  JC2  K2^  K1  _C1  x 

+  2  J1+2KI  K2_C1  X  +  2K1  K2_C1  _C2  K2^  K1  _C1  _C2  +  2  _C3x  KP  K2^  _C1 
+  3  _C4  A1  KP  K2^  _C1 )  / (Al  KP  K2'^  _C1 ) 

>u1(x); 

j  (-3  A2xKl  K2  JOI  -A2j^  -2jm  A2  K1  K2  _C1  x-2j^  A2  K1  K2  _C1  _C2 

+  3  A5  X  KP  K2^  _C1  +  K2  +  2  K2'^  K1  _Clx  +  2  K2^  K1  _C1  _C2 

+  2_C3x  KP  K2^  _C1  +  3  _C4  Al  KP  K2^  _C1 ) / {Al  KP  K2^  _C1 ) 

%l  :=l  +  2K1  K2  _C1  x  +  2  K1  K2  _C1  _C2 

>  ux2:=dsolve(A1  *diff(u(x),x)+A2*c2(x)-A3-e2{x)=0,u(x)); 

ux2  :=  u(x)  =  j(-2A2xKlK2  _C1  +  A2  +  2  A2  K1  K2  _C1  x 

+  2  Jm  A2  K1  K2  _C1  JC2  +  2A3x  KP  K2^  _C1  -  K2  -  2  K2^  K1  _C1  x 

-  2  K2^  K1  _C1  _C2  +  3  _CJ  X  KP  K2^  _C1  +  3  _C4  Al  KP  K2'^  _C1 )  /  ( Ai  KP 

K2^  _C1 ) 

%l:=l+2Kl  K2_C1  x  +  2  K1  K2  Cl  C2 
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>  u2:=unapply(simplify(op(2,ux2)),x); 

u2-=x-^-{-3A2xKlK2  Cl  +  A2  1 1 +2  K1  K2  Cl  x +  2  K1  K2  _C1  _C2 

3\  _  j 

+  2  Jl  +  2K1  K2  _C1  x  +  2  K1  K2  _C1  _C2  A2  K1  K2  jCl  x 
+  2  Jl+2KlK2_Clx  +  2KlK2  _C1  _C2  A2  K1  K2  _C1  _C2  +  3A3x  KP  K2^  _C1 
-Jl+2KlK2_Clx  +  2KlK2  _C1  _C2  K2 
-2jl+2KlK2_Clx  +  2KlK2_Cl_C2  K2^  K1  _C1  x 

-  2  Jl+2K1  K2_Clx  +  2Kl  K2_C1  _C2  K2^  K1  _C1  _C2  +  3  _C3x  Kf  K2'^  _C1 
+  3  _C4  A1  Kl^  K2^  _C1 )  / (A1  Kl^  K2^  _C1 ) 

>  u2(x); 

^  (-3  A2  X  K1  K2  jCl  +A2  +  2j%\A2  K1  K2  _C1  x  +  2  J^A2  K1  K2  _C1  _C2 

+  3  A  J  X  KP  K2^  _C1  -  Jm  K2  -  2  K2'^  K1  _Clx -2  K2^  K1  _C1  JC2 

+  3  _C5  X  Kf  K2^  _C1  +  3  _C4  A1  Kf  K2^  _C1 )/( Ai  Kl^  K2^  _C1 ) 

%l  -.=  1+  2X1  K2  _C1  x  +  2  K1  K2  _C1  _C2 

>  S1  :=x->simplify(B1  *e1  (x)-B2*c1  (x)+B3); 

51  :=  X  simplify(57  el(x)  -  52  cl(x)  +  55) 

>S1(x); 

[b1  K2  J\+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  B1  K2  _C3  K1  -  52 

-52  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  B3  K1  K2)  j  {K1  K2) 

>  S2:=x->simplify(B1*e2(x)-B2*c2(x)+B3); 

52  :=  x-^  simplify(57  e2(x)  -  52  c2(x)  +  55) 

>  S2(x); 

(-57  K2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  57  K2  _C3  K1  -  B2 

+  B2  Jl+2K1  K2  _C1  X  +  2K1  K2  __C1  _C2  +  B3  K1  K2)  j  {K1  K2) 

Note  #3:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 


>  K:=(Em/(3*(1-2*nu))); 


I 


> 


lambda:=(Em*nu)/((1+nu)*(1-2*nu)); 


Em 

K-.= - 

3  -  6  V 


Em  V 


(l+v)(l-2v) 
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>  mu:=Em/(2*(1+nu)); 


Em 

\l:= - 

2  +  2v 

>  aIpha:={rho*Vs)/(3*!\/IWs); 

1  p  1/5 

a  := - 

3  MWs 

>K1::z(Vs*K)/(R*T); 


Vs  Em 

K1  := - 

(3-6v)RT 

>  K2:=3*alpha*{1+traps); 


>  K1*K2; 


>  A1:=(1-2*nu); 


>  A2;=2*(1+nu)‘alpha*(1+traps); 


>  A3:=A2*cO; 


p  Vs  (I  +  traps) 

KZ  != 

MWs 


Vs^  Em  p  ( 1  +  traps ) 
(3-6v)RTMWs 


A1  :=  I- 2v 


2(l+v)pV5(l  +  traps ) 

A2  := - 

3  MWs 


>  B1:=3*K; 


A3  := 


2(l+v)pV'5(l  +  traps )  cO 
3  MWs 


Em 

B1  :=  3 - 

3  -6v 

>  B2:=9*K*alpha*(1+traps); 


Em  p  V5  ( 1  +  traps ) 

B2  :=  3 

{3-6\)MWs 

>  B3:=B2*cO; 


Em  p  V5  ( 1  +  traps)  cO 
i3-6v)MWs 
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>  c1(x); 

( 


Em  p  ( 1  +  traps )  _C1  x  Vs^  Em  p  ( 1  +  traps )  jCl  _C2 


1  +  1+2 


(3-6v)RTMWs 
MWsj ( Em  p  ( 1  +  traps)) 


+  2 


{3-6\)RTMWs 


(3-6v)RT 


>  c2(x); 


1  +  1 1  +  2  P  ( 1  +  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 


V  j  {3-6v)RTMWs 

MWsj  { Vs^  Em  p  ( 1  +  traps)) 


{3-ev)RTMWs 


{3-6v)RT 


>  e1 (x) 

r 


^  ^  Em  p  ( 1  +  traps )  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2  _C3  Vs  Em 


Vj  i3-6v)RTMWs 

i3-6v)RTl(VsEm) 

>  e2(x); 


(3-6v)RTMWs 


(3-6v)RT 


1 1  2  P  ( 1  +  traps)  _C1  x  ^  Em  p  ( 1  +  traps)  _C1  _C2  _C3  Vs  Em 


{3-6v)RTMWs 
{3-6v)RTl(VsEm) 


(3-6v)RTMWs 


{3-6v)RT 


>u1(x); 


1  ^  ( 1  +  V )  p^  ( 1  +  trapsf  X  Em  _C1  2(l+v)pV5'(l  +  traps)  J%1 

MWs^{3-6v)RT  3  MWs 


4  ( 1  +  V)  p^  ( 1  +  traps)^  Em  _C1  x 

3  MWs^(3-6v)RT 

4  ( 1  +  V)  p^  ( 1  +  traps)^  Em  _C1  _C2 

3  MWs'^{3-6v)RT 

( 1  +  V )  p^  ( 1  +  traps  f  cO  x  Em^  _C1  J%1  p  Vi'  ( 1  +  traps ) 


+  2 


MWs^  (3  -  6  V)  R^ 


+  ■ 


MWs 


^  J%1  p^  Vi^  ( 1  +  traps  f  Em  _C1  x  p^  Vi^  ( 1  +  traps')'  Em  jCl  _C2 

MWs^{3-6v)RT  MWs^{3-6v)RT 


^  ^  _C3x  V/  Ern^  p^  ( 1  +  trapsf  _CI  _  _C4  ( 1  -  2  v)  V/  Em^  p^  ( 1  +  traps)'^  _C1 
+  3  +3  ~ 

(3-6v)  R^T^MWs^  (3-6v)  R^T^MWs^ 

\ 

{3-6vf  R^T^  MWs^l[{\  -2\)Vs'^Em^p  {\  +  trapsf  _Cl) 

J 
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1+2 


Vs^  Em  p  ( 1  +  traps)  _C1  x 
{3-6v)RTMWs 


^  Vs^  Em  p  ( 1  +  traps)  jCl  _C2 
(3-6v)RTMWs 
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-2 


>  u2(x); 
f 

3 

V 


( 1  +  v)  ( 1  +  traps')  X  Em  JCI  2(l+v)pVj'(l  +  traps)  J  %l 

MWs^i3-6v)RT  3  MWs 

4  J%1  ( 1  +  v)  p^  Vs^  ( 1  +  traps'^  Em  _C1  x 

3  MWs^{3-6\)RT 

4  ( 1  +  V)  pV.y^  ( 1  +  trapsf  Em  JCI  _C2 

3  MWs^{3-6v)RT 

^  ( 1  +  V )  p^  Vs^  ( 1  +  trapsf  cO  x  Eni^  _C1  J%1  p  ( 1  +  traps) 

MWs^{3-6vf  R^t^  MWs 

^  J%1  p^  V'j'^  ( 1  +  trapsf  Em  jCl  x  J%1  p^  Vs^  ( 1  +  trapsf  Em  _C1  JZ2 

MWs^{3-6v)RT  MWs^{3-6v)RT 

^  ^  _C3  X  Em^  p^  ( 1  +  trapsf  _Ci  ^  ^  _C4  ( 1  -  2  v )  Em^  p^  (  1  +  traps  f  _C1 

{3-6\f  R^T^  MWs'^  {3-6vf  R?-T^MWs^ 

\ 

{3-6vfR^P-  MWs^l[{\  -  2  V)  V/  Em^  p^  ( 1  +  trapsf  jCl) 


Vs^  Em  p  {\  +  traps)  Cl  x  Vs^  Em  p  {\  +  traps)  Cl  C2 

%1  :=  1  +2 - — - - +  2 - — = — 

{3-6v)RTMWs  {3-6v)RTMWs 


>S1(x); 

-  {MWs  _C3  Vs  Em -3  R  T  MWs  +  6R  T  MWs  v  +  Emp  Vs^  cO  +  Emp  cO  traps) 

(-1  +2v)  Vs  MWs) 

>  S2(x); 

-  ( MWs  _C3  Vs  Em  -3  RT  MWs  +  6  RT  MWs  v  +  Em  p  Vs^  cO  +  Em  p  Vs^  cO  traps )  /  ( 

(-1  +2v)  Vs  MWs) 

>S1(x)-S2(x); 

0 


Note  #4;  The  stresses  are  same  for  each  solution  root,  and  do  not  depend  on 
the  position  x!  The  stresses  are  therefore  constant  throughout  the 
body.  We  define  a  new  stress  function,  Sx. 


>  Sx:=S2(x); 

Sx  :=  -  {MWs  __C3  Vs  Em -3  R  T  MWs  +  6R  T  MWs  v  +  Emp  Vs'^  cO  +  Em  p  Vs^  cO  traps)  j  { 
(-1  +2v)  Vs  MWs) 
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Note  #5:  Now  we  will  introduce  numerical  values  for  the  material  properties. 
The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 


>  Ds:=1e-9; 

:=.l  10-» 

>  Vs:=2.02e-6; 

Vs  :=  .202  10-5 

>  traps:=19; 

traps  :=  19 

>  c0;=0.0; 

c0:=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em:=200e9; 

Em  :=  .200  lO*^ 

>  nu:=0.3; 

v:=  .3 

>  rho:=7800; 

p  :=  7800 

>T:=293; 

T  :=  293 

>  R:=8.31432; 

7?  :=  8.31432 

>K; 

.166666666666667  lO^^ 

>  lambda; 

.115384615384616  lO^^ 

>  mu; 

.769230769230769  10” 

>  alpha; 

5.21047253390476 

>  Rh:=R/MWs; 

Rh  ■=  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

312.628352034286 

>  K1*K2; 

43205.0114421104 
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>  1/(K1*K2); 

>  A1; 

>  A2: 

>  A3; 

>B1: 

>  B2; 

>  B3; 


.0000231454631447068 

.4 

270.944571763048 

0 

.500000000000001  10'2 
.156314176017143  10'^ 
0 


Note  #6;  Now  let's  solve  for  the  integration  constants:  _C1,  _C2 ,  _C3,  and  _C4 , 
using  the  boundary  data. 

— — — 

.0000231454631447068  +  .0000231454631447068 

J 1  +  86410.0228842208  _C1  x  +  86410.0228842208  _C1  _C2 

>  c2(x); 

.0000231454631447068  -  .0000231454631447068 

J 1  +  86410.0228842208  _C1  x  +  86410.0228842208  _C1  _C2 

>  evalf(c1(x),5); 

.000023 146  +  .000023 146  j  1.  +  86408.  _Ci  x  +  86408.  _C1  JC2 

>  evalf(c2(x),5); 

.000023146  -  .000023146  j  1.  +  86408.  _C/  x  +  86408.  _C1  jC2 

>  eqnset1:={0=c1(0),1e-6=c1(0.10)}; 

eqnsetl  ;=  {  .1  lO'^  =  .0000231454631447068  +  .0000231454631447068 
J 1  +  8641.00228842208  _Ci  +  86410.0228842208  _C1  _C2 , 0  = 
.0000231454631447068  +  .0000231454631447068  J 1  +  86410.0228842208  _C7  _C2  } 

>  varsetl  :={„C1  ,_C2}; 

varsetl  :=  {  _C1,  _C2  } 

>  sol nset1  :=sol ve(eqnset1 , varsetl ); 

solnsetl  ;= 

>eqnset2:={0=c2(0),1e-6=c2(0.10)}; 
eqnsetl  :=  {  0  = 

.0000231454631447068  -  .0000231454631447068  / 1  +  86410.0228842208  _C1  _C2  , 
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.1  10-5  =  .0000231454631447068 


-  .0000231454631447068  J 1  +  8641.00228842208  _C1  +  86410.0228842208  _C1  _C2 

} 

varset2:={_C1  ,_C2}; 

varsetl  :=  { _C1,  _C2  ] 

solnset2:=solve{eqnset2,varset2); 

solnsetl  :=  { _C2  =  0,  _C1  =  -.978397494278943  lO'^ } 


assign(solnset2); 


Note  #7:  The  solution  cl (x)  is  not  capable  of  satisfying  the  boundary 

conditions,  as  evidenced  by  the  lack  of  solution  for  the  given 
boundary  conditions.  The  concentration  function  c2 (x)  is  the 
correct  solution  in  this  easel 


■  c2(x); 


.0000231454631447068  -  .0000231454631447068  Jl  - .845433498705078 x 


p1  :=plot(1  e6*c2(x/1 00),x=0..1 0,title=‘Concentration,  c2(x)  [ppm]'); 
pi; 


Concentration,  c2(x)  [ppm] 


>  p2:=plot(1  e9*(c2(0)+((c2(0.1 0)-c2(0))/0.1 0)*x/1 00-c2(x/1 00)),x=0..1 0,title=‘Concentration  Difference  [ppb]‘): 

>  p2; 


Concentration  Difference  [ppb] 


>  u2(x); 

-.0156778439999998  x  +  .00190196390663828  J 1  -  .845433498705078  x 

-  .00160798400000005  J 1  -  .845433498705078  x  x  +  2.49999999999998  _C3  x 
+  .999999999999996  _C4 

>  eqnset3:={0=u2{0),0=u2(0.10)}; 

eqnsetS  :=  { 0  =  .0000981540310014316  -t-  .249999999999998  _C3  +  .999999999999996  _C4, 
0  =  .00190196390663828  +  .999999999999996  _C4 } 

>  varset3:={_C3,_C4}; 

varset3  :=  { jC3,  _C4  ] 

>  solnset3:=soIve(eqnset3,varset3); 

solnset3  :=  { _C3  =  .00721523950254741,  _C4  =  -.00190196390663828  } 

>  assign(solnset3); _ _ _ _  _ _ _ _ _ 

>  e2(x); 

-.00723592799999998  j  1  -  .845433498705078  x  -I-  .00721523950254741 

>  p3:=plot(1e6*e2(x/100),x=0..10,title=‘Dilatational  Strain,  e2(x)  [ue]‘): 

>  p3; 


Dilatational  Strain,  e2(x)  [ue] 


>  u2(x); 

.00236025475636850  x  +  .00190196390663828  J 1  -  .845433498705078  x 

-  .00160798400000005  J 1  - .845433498705078  x  x -  .00190196390663825 
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>  ex;=unapply(diff(u2(x),x),x); 


ejc  :=  X  ^  .00236025475636850  -  .000803991999999990 


_ 1 _ 

1  -  .845433498705078  x 


+  .000679721769490914  -  - 

Jl  -  . 845433498705078 X 

-  .00160798400000005  / 1  -  .845433498705078  x 


>  Sx; 

>  J2(x); 


-.103442487262901  10® 
-.978397494278943  lO  ^^ 


>  evalf(u2(x},5); 

.0023588  a:  +  .0019015  Jl.-. 84542  a:  -  .0016072  Jl.  -  .84542  a:  a:  -  .0019021 

>  evalf(c2(x),5); 

.000023 146  -  .000023146  Jl.-. 84542  a: 

>  evalf(e2(x),5); 


-.0072359  Jl.-. 84542  a:  +  .0072152 


>  evalf(ex(x),5); 

.0023603  -  .00080399 


Jl.  -  .84543  a: 


+  .00067972 


Jl.-. 84543  a: 


-. 0016080  Jl.-. 84543 
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1 .  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME : 

/ af  s/nd .  edu/user4  /  j  thomas5/Maple/Transport/lDSSsol#2b  .ms 


2 .  ORIGINATOR : 

Dr.  James  P.  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
(219)  631-9371 


3.  HISTORY: 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 

\ 

\ 

\  - >  X  [m] 

\ 

\ 

x=0  x=0.010 

Deformation  variable  boundary  conditions:  u{0)=0,  u(0.10)=0 
Concentration  variable  boundary  conditions:  c(0)=0,  c(0.10)=le-7 
Reference  concentration  level:  c0=0.0 
Trapping  parameter:  traps=19  (low  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-do/dx)  (mass  flux) 

3.  dS/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2 *c+B3  (axial  stress) 

5.  de/dx-K2*do/dx=0  (dilational  strain  gradient) 

6.  e=Al *du/dx+A2 *c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattice  diffusivity  [m''2/sec] 

Kl:=(Vs*K) / (R*T) 

Vs :  =  partial  molar  volume  of  solute  [m''3/mol  solute] 

K:=  bulk  modulus=Em/ (3* (l-2*nu) )  [N/m^2] 

Em:=  Modulus  of  Elasticity  [N/m''2] 
nu:=  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1:=3*K 

B2 : =9*K*alpha* ( 1+traps) 

B3 : =B2*co 

traps : =  Csr *Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr:=  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* (1  +  traps ) 

alpha:=  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho :  =  mass  density  of  the  solid  [kg/m''3] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Delc:=  c-cO  [1] 


/ 

/ 

/ 

/ 

/ 
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A1 : =l-2*nu 

A2 : =2  * ( 1+nu) *alpha* { 1  +  traps ) 
A3 :=A2*cO 


5 .  REQUIRED  INPUTS : 

Ds:=lattice  diffusivity  [m^2/sec] 

Vs : =  partial  molar  volume  of  solute  [m^3/mol  solute] 
traps ; =  Csr*Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs ; =  molecular  weight  of  the  solute  [kg/mol] 

Em;=  Modulus  of  Elasticity  [Pa] 

nu:=  Poisson's  ratio  [1] 

rho : =  mass  density  of  the  solid  [kg/m^3] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits;=trunc(evalhf(Dig!ts)); 


Digits  :=  15 


>  J:=Ds‘(K1  *K2*c{x)-1  )*diff(c(x),x); 


J:=Ds(Kl  K2  c{x)-l) 


—  c(x) 
ax  J 


>  deqn:=diff(J,x)=0; 


deqn  :=  Ds  K1  K2 


^3  ^ 

—  c(x) 
ax  j 


+  DsiKl  K2c{x)-  1) 


02 


=  0 


>  csoln:=:dsolve(deqn,c(x), explicit); 


csoln  ;=  c(3c)  = 


Cl 


1  j\+2KlK2  _Clx  +  2  K1  K2  _C1  _C2 
V  -Cl  '  -Cl 


K1  K2 

1  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2 


Cl 


c(x)  =  - 


V 


Cl 


■  +  ■ 


Cl 


K1  K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c{x)  .  The 
boundary  conditions  will  be  used  to  select  the  proper  one. 


>  c1:=unapp!y(simpIify(op(2,csoln[1])),x); 


cl  !—  X  — ^ 


1+.II+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2 
K1  K2 


>  c1(x); 


1  +  J1+2IKI  K2  _C1  X +  2  K1  K2  _C1  JC2 


K1  K2 


>  c2:=unapply(simplify(op{2,csoln[2])),x); 


c2  :=  X  — >  -  ■ 


-\+^l-\-lKlK2_Clx  +  2KlK2  _C1  _C2 
K1  K2 


>  c2{x); 


-\+ll+lKlK2  C1X  +  2K1K2  Cl  C2 


K1  K2 


>  J1  :=unapply(simplify(Ds*(K1  *K2*c1  (x)-1  )*diff(c1  (x),x),x)); 


77  :=  (  )^Ds  _C1 


>J1(x); 


Ds  Cl 


>  J2:=unapply{simplify(Ds*(K1*K2*c2(x)-1)*diff(c2(x),x))); 


>  J2(x); 


72  :=  (  )^Ds  jCl 


Ds  Cl 


Note  #2  :  The  above  results  show  that  both  mass  flux  solutions  are  identical 
and  equal  to  Ds*_Cl  where  _C1  is  a  constant  of  integration! 


>  ex1  :=dsolve(diff(e(x),x)-K2*diff(c1  (x),x)=0,e(x)); 


exl  :=  e(jc)  =  ■ 


I +2  K1K2  Cl  X +  2  K1K2  Cl  C2  +  C3  K1 


>  el  :=unapply(simplify(op(2,ex1)),x); 


el  ;=  X  — >  ■ 


1+2K1  K2  _C1  X  +  2K1  K2  Cl  C2  +  C3  K1 


>  e1(x); 


\ +2  K1K2  Cl  X  +  2  K1K2  Cl  C2  +  C3  K1 


>  ex2:=dsolve(diff(e(x),x)-K2*diff(c2(x),x)=0,e(x)); 


ex2  :=  e(x) 


\ +  2  K1K2  _C1  X  +  2K1  K2  _C1  C2  -  C3  K1 


>  e2:=unapply(simplify(op(2,ex2)),x); 


e2  :=  X  — > 


-j  1  +  2  K1  K2  Cl  X +  2  K1  K2  Cl  C2  +  C3  K1 


>  e2(x); 


-1\+2K1K2  Cl  X +  2  K1  K2  Cl  C2  +  C3  K1 
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>  ux1;=dsoIve(A1*diff(u{x),x)+A2*c1(x)-A3-e1(x)=0,u{x)); 

uxl  :=  u(x)  =  ^(-3A2xKlK2  _C1  -  A2  -  2  A2  K1  K2  jCl  x 

-  2  Jm  A2  K1  K2  _C1  _C2  +  2A3xKf  K2'^  __C1  +  K2  +  2  K2^  K1  _C1  x 

+  2  K2^  K1  _C1  _C2  +  3_C3x  Kf  K2^  JOI  +  3  _C4  A1  Kl^  K2^  _C1 )/( Ai  Kl^ 

K2'^_C1) 

%l-=]+2KlK2_Clx  +  2KlK2_Cl_C2 

>  u1:=unapply(simplify(op(2,ux1)),x); 

ul  :=x^-(-3A2xKl  K2  Cl  -A2  1 1+2  K1  K2  Cl  X  +  2K1K2  Cl  C2 
3  -  -I  -  -  - 


-2j 

1+2K1  K2 

JCI  x  +  2  K1  K2 

_C7 

JC2 

A2  K1  K2 

_Clx 

-2} 

1 +2  K1  K2 

_Clx  +  2KlK2 

JCI 

JC2 

A2  K1  K2 

JCI  _C2 +  3  A3  xKfK2^~ 

_C1 

+  J^ 

+  2  K1K2_ 

Cl  X  +  2K1  K2  _ 

Cl  _ 

C2  K2 

+  2, 

\\  +  2  K1K2 

_C1  x  +  2  K1  K2 

JCI 

_C2 

1 

' — I 

Cl  X 

+  2. 

\l +2  K1K2 

_C1  x  +  2  K1  K2 

JCl 

_C2 

K2^  K1  _ 

Cl  _C2  + 3  _C3xKfK2^  _ 

Cl 

+  3  _C4  A1  KP  K2^  _C1 ) /(Al  Kf  K2^  jCl ) 

>  u1(x); 

-[-3A2xKlK2  Cl -A2  -2j^  A2K1  K2  Cl  x  -  2  A2  K1  K2  Cl  C2 

+  3A3xKl^  K2^  _C1  +  J%1  K2  +  2  J%\  K2^  K1  _Clx  +  2  Jm  K2^  K1  jCl  _C2 
+  3  _C3x  Kf  K2^  _C1  +  3  _C4  Al  Kf-  K2^  _C1 ) / (Al  Kf  K2^  _C1 ) 

%\  -=1  +  2K1  K2  _C1  x+2  K1  K2  _C1  JZI 

>  ux2:=dsolve(A1*diff(u(x),x)+A2*c2(x)-A3-e2(x)=0,u(x)); 

ux2  ;=  \x(x)  =^[-3  A2  X  K1  K2  _C1  +  A2  +  2  J%1  A2  K1  K2  JCI  x 

+  2  A2  K1  K2  _C1  _C2  +  3  A5  x  Kl'^  K2^  _^C1  -  /%!  K2  -  2  K2^  K1  _C1  x 

-  2  K2^  K1  _C1  _C2  +  3_C3x  Kf  K2'^  __C1  +  3  _C4  Al  Kf  K2^  _C1 )  j (Al  Kf 

K2^  _C1 ) 

%\-=l+2KlK2_Clx  +  2KlK2  Cl  C2 
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>  u2:=unapply(simplify{op(2,ux2)),x); 

u2:=x-^-(-3A2xKlK2  Cl +A2  J I +2  K1  K2  Clx  +  2K1K2  Cl  C2 

+  2j  \  +  2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  A2  K1  K2  jCl  x 
+  2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  A2  K1  K2  _C1  _C2  +  3A3x  Kl^  K2'^  _C1 
-Jl+2KlK2_Clx  +  2KlK2  jCl  _C2  K2 

-  2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  _C1  x 

-  2  j\+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2  K2'^  K1  _C1  _C2  +  3  _C3x  Kl^  K2^  _C1 
+  3  _C4  A1  KP  K2^  _C1 )  / ( A7  Kl^  K2'^  _C1 ) 

>  u2(x); 

^  (-3  A2  X  K1  K2  _C1  +  A2  +  2  A2  K1  K2  _C1  x  +  2  A2  K1  K2  _C1  _C2 

+  3A3x  Kl^  K2^  _C1  -  K2  -  2  K2^  K1  _Clx-2  K2^  K1  _C1  _C2 

^3  _C3x  Kl^  K2'^  _C1  +  3  _C4  A1  Kf  K2^  _C1 )  /  ( A7  Kf  K2^  _C1 ) 


%1  :=  1  +  2  TiCi  7:2  _C7  ;c  +  2  K1  K2  jCl  _C2 

>  S1:=x->simplify(B1*e1(x)-B2*c1(x)+B3); 

51  :=  ;c  — >  simplify(B7  el(x)  -  B2  cl(;c)  +  B3) 

>  S1  (X); 

[b1  K2  j\^2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2  +  B1  K2  _C3  K1  -  B2 

-B2jl+2KlK2_Clx  +  2KlK2  _C1  _C2  +  B3  K1  K2)  j  {K1  K2) 

>  S2:=x->simplify(B1  *e2(x)-B2*c2(x)+B3); 

52  :=  X  ^  simplify(57  e2(x)  -  B2  c2{x)  +  B3) 

>  S2(x); 

(-B1  K2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  B1  K2  _C3  K1  -  B2 

+  52  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  B3  K1  K2)  j  {K1  K2) 


Note  #3:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 


>  K:=(Em/(3*(1-2*nu))); 


>  lambda:=(Em*nu)/((1+nu)*(1-2*nu)); 


Em 

K:= - 

3  -  6  V 


Em  V 


(l+v)(l-2v) 
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>  mu:=Em/(2*(1+nu)); 


>  aIpha:=(rho*Vs)/(3*MWs); 


>  K1:=(Vs*K)/(R*T); 


>  K2:=3*alpha*(1+traps); 


>  K1*K2; 


>  A1:=(1-2‘nu); 


>  A2:=2‘(1+nu)*alpha*{1+traps); 


>  A3:=A2*cO; 


Em 

|i:= - 

2  +  2v 
1  p 

a  := - 

3  MWs 


Vs  Em 

K1  := - 

(3-6v)RT 


K2  := 


p  Vi  ( 1  +  traps) 
MWs 


Vi^  Em  p  ( 1  +  traps ) 
(3-6v)RTMWs 


A1  :=  I -2v 


( 1  +  V )  p  Vi  ( 1  +  traps ) 
MWs 


>  B1;=3*K; 


2  ( 1  +  V )  p  Vi  ( 1  +  traps )  cO 

A3  := - 

3  MWs 


Em 

B1  ;=  3 - 

3  -  6  V 

>  B2;=9*K*alpha*(1+traps); 


Em  p  Vi  ( 1  +  traps ) 
(3-6v)MWi 

>  B3:=B2*cO; 


Em  p  Vi  ( 1  +  traps)  cO 
(3-6v)MWi 
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>ci(x): 

f 


^  12  P  ( 1  traps)  _C1  x  ^  Vs^  Em  p  (  1  +  traps)  _C1  _C2 


{3-6v)RTMWs 
MWsj ( Vs^  Em  p  ( 1  +  traps)) 


i2,-6\)RTMWs 


(3-6v)RT 


>  c2{x); 

r 


^  M2  P  ( 1  tf'^^ps)  jCl  X  ^  Em  p  ( 1  +  traps)  _C1  _C2 


(3-6v)RTMWs 
MWsj (  Vs^  Em  p  ( 1  +  traps)) 


{3-ev)RTMWs 


{3-6v)RT 


) 


>e1(x): 

( 


^  ^  Em  p  ( 1  +  traps)  _C1  x  ^  Em  p  (  1  +  traps)  _C1  _C2  _C3  Vs  Em 


{3-6v)RTMWs 
(3-6v)RTl(VsEm) 


(3-6v)RTMWs 


(3-6v)RT 


>  e2(x); 

r 


^  ^  Vs^  Em  p  ( 1  +  traps )  _C1  x  ^  Em  p  ( 1  +  traps )  _C1  _C2  _C3  Vs  Em 


Vj  (3-6v)RTMWs 

{3-6v)RTl(VsEm) 


(3-6v)RTMWs 


(3-6v)RT 


>u1(x); 


V 


( 1  +  V)  pV^^  ( 1  +  traps)^  X  Em  _C1  2  ( 1  +  v)  p  ( 1  +  traps) 


MWs^i3-6v)RT  3 

4  J%r  ( 1  +  V)  pV.y3  ( 1  +  traps)^  Em  JCI  x 

3  MWs^{3-6v)RT 

4  J%r  ( 1  +  V )  pV^^  ( 1  +  traps)^  Em  _C1  _C2 

3  MWs'^{3-^v)RT 


MWs 


( 1  +  V )  p^  Vs^  ( 1  +  traps  f  cO  x  Em^  _C1  J%1  p  V'j'  ( 1  +  traps ) 

+  2  + 

MWs^{3-6vf  R}P- 

J%1  p^  ( 1  +  traps )^  Em  _C1  x  p^  ( 1  +  traps )^  Em  _C1  _C2 

MWs^(3-6v)RT  MWs^{3-6v)RT 

^  ^  _C3  X  V/  Ern^  p^  ( 1  +  trapsf  _C7  ^  ^  _C4  ( 1  -  2  v)  Em^  p^  ( 1  +  trapsf  _C1 
{3-6vf  R3T^  MWs^  {3-evf  R^t^  MWs^ 

\ 

(3  -  6  vf  7^  MWj2/((  1  -  2  V)  Ern^  p^  ( 1  +  trapsf  _Ci) 


A-2b-7 


^  ^  -1+2  P  (  ^  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 

{3-6v)RTMWs  (3-6v)RTMWs 


A-2b-8 


>  >j2(x); 

r 

1 


(  1  +  v)  Vs^  (  1  +  traps'^  x  Em  _C1  2(l+v)pV;s'(l  +  traps)  J  %l 

MWs^(3-6v)RT  3  MWs 

4  J%1  ( 1  +  v)  Vs^  ( 1  +  trapsf  Em  _C1  x 

3  MW^(3-6v)RT 

4  ( 1  +  V)  ( 1  +  traps  f  Em  jCl  _C2 

3  MW^i3-6v)RT 

( 1  +  v)  p^  ( 1  +  traps  f  cO  x  Em^  _C1  J%1  p  Vis  ( 1  +  traps) 

MWs^{3-6vf  R^T^ 


+ 


+ 


+  2 


MWs 


-2 


( 1  +  traps  f  Em  jCl  x  ^  Jm  p^  Vs^  ( ^  ^  Em  _C1  _C2 

MW^(3-6v)RT  MWs'^(3-6v)RT 


^  ^  _C3  X  Vs^  Ern^  p^  ( 1  +  traps  f  _C1  ^  ^  _C4  ( 1  -  2  v)  Vs^  Ern^  p^  ( 1  +  trapsf  _C1 


{3-6vt  R^T^  MWs^  {3-6vf  R^T^MWs^ 

(3  -  6  vf  7^  MWs^l[{\  -  2  V)  Vs^  Em^  p^  ( 1  +  trapsf  _C1 ) 


Vs^  Em  p  {\  +  traps)  Cl  x  Em  p  {\  +  traps)  Cl  C2 

{3-6v)RTMWs  {3-6v)RTMWs 

>S1(x); 

-  {MWs  _C3  Vs  Em -3  R  T  MWs  +  6R  T  MWs  v  +  Emp  Vs^  cO  +  Emp  Vs^  cO  traps)!  ( 

(-1  +  2v)  Vs  MWs) 

>  S2(x); 

-  {MWs  _C3  Vs  Em  -3  RT  MWs  +  6  RT  MWs  v  +  Em  p  Vs^  cO  +  Em  p  Vs^  cO  traps )/( 

(-1  +2v)  Vs  MWs) 

>  S1(x)-S2(x); 

0 


Note  #4:  The  stresses  are  same  for  each  solution  root,  and  do  not  depend  on 
the  position  x!  The  stresses  are  therefore  constant  throughout  the 
body.  We  define  a  new  stress  function,  Sx. 


>  Sx:=S2(x); 

:=  -  {MWs  __C3  Vs  Em -3  R  T  MWs  +  6R  T  MWs  v  +  Emp  Vs^  cO  +  Emp  Vs'^  cO  traps)  j  { 
(-1  +2v)  Vs  MWs) 
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Note  #5:  Now  we  will  introduce  numerical  values  for  the  material  properties. 
The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 


>  Ds:=1e-9; 

Ds:=A  10-* 

>  Vs:=2.02e-6; 

:=  .202  10-5 

>  traps:=19; 

traps  :=  19 

>  c0:=0.0; 

cO  ;=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em:=200e9; 

Em  :=  .200  lO'^ 

>  nu:=0.3; 

v;=  .3 

>  rho:=7800; 

p  :=  7800 

>T:=293; 

r:=  293 

>R;=8.31432; 

R-.=  8.31432 

>  K; 

,166666666666667  lO'^ 

>  lambda; 

.115384615384616  lO'^ 

>  mu; 

.769230769230769  10" 

>  alpha; 

5.21047253390476 

>  Rh:=R/l\/iWs; 

Rh  -  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

312.628352034286 

>  KrK2; 

43205.0114421104 
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>1/(K1*K2); 

>  A1; 

>  A2; 

>A3; 

>B1; 

>B2; 

>  B3; 


.0000231454631447068 

.4 

270.944571763048 

0 

.500000000000001  10^2 
.156314176017143  lO'^ 
0 


Note  #6:  Now  let's  solve  for  the  integration  constants:  _C1,  _C2 ,  _C3,  and  _C4, 
using  the  boundary  data. 


>c1(x); 

.0000231454631447068  +  .0000231454631447068 

J 1  +  86410.0228842208  _C1  x  +  86410.0228842208  _C1  _C2 

>  c2(x); 

.0000231454631447068  -  .0000231454631447068 

J 1  +  86410.0228842208  _C1  x  +  86410.0228842208  _C1  _C2 

>  evalf(c1(x),5); 

.000023 146 +  .000023 146  Jl.  +  86408.  _C1  x  +  86408.  _C1  _C2 

>  evalf(c2(x),5); 

.000023146  -  .000023146  Jl.  +  86408.  _C1  x  +  86408.  _C1  _C2 

>  eqnsetl  ;={0=c1  (0),1  e-7=c1  (0.1 0)}; 

eqnsetl  :=  {  .1  10'^  =  .0000231454631447068  +  .0000231454631447068 
J 1  +  8641.00228842208  _C1  +  86410.0228842208  _C1  _C2,0  = 
.0000231454631447068  +  .0000231454631447068  J 1  +  86410.0228842208  _C1  _C2  } 

>  varsetl  :={_C1  ,_C2}; 

varsetl  :=  {  _C1,  _C2  ] 

>  solnsetl  ;=solve(eqnset1 , varsetl ); 


solnsetl  := 


>eqnset2:={0=c2(0),1e-7=c2(0.10)}; 

eqnsetl  :=  {  .1  lO  *^  =  .0000231454631447068 

-.0000231454631447068  / 1  +  8641.00228842208  _C1  +  86410.0228842208  Cl  C2 


A-2b-ll 


.0000231454631447068  -  .0000231454631447068  J 1  +  86410.0228842208  _C1  _C2 

>  varset2:={_C1  ,_C2}; 

varsetl  :=  { _C1,  _C2  } 

>  solnset2:=soIve(eqnset2,varset2); 

solnset2  :=  { _C2  =  0,  _C1  =  -.997839749427893  lO'^ } 

>  assign(solnset2); _ _ 


Note  #7:  The  solution  cl(x)  is  not  capable  of  satisfying  the  boundary 

conditions,  as  evidenced  by  the  lack  of  solution  for  the  given 
boundary  conditions.  The  concentration  function  c2 (x)  is  the 
correct  solution  in  this  case! 


>  c2(x); 

.0000231454631447068  -  .0000231454631447068  Jl  -  .0862233555828494  x 

>  p1:=plot(1e6*c2{x/100),x=0..10,title=‘Concentration,  c2(x)  [ppm]‘): 

>p1; 


Concentration,  c2(x)  [ppm] 


>  p2:=plot(1  e9*(c2(0)+((c2(0.1 0)-c2(0))/0.1 0)*x/1 00-c2(x/1 00)),x=0..1 0,title=‘Concentration  Difference  [ppb]‘): 

>p2; 


Concentration  Difference  [ppb] 


>  u2{x); 


-.0156778440000000  x  +  .0186490538338527  J 1  -  .0862233555828494  x 

-  .00160798400000002  J 1  -  .0862233555828494  x  x  +  2.49999999999999  _C3  x 
+  .999999999999992  _C4 

>  eqnset3:={0=u2(0),0=u2(0.10)}; 

eqnsetS  :=  { 0  =  .0186490538338527  +  .999999999999992  _C4, 

0  =  .0168405925050965  +  .249999999999999  _C5  +  .999999999999992  _C4 } 

>  varset3:=t_C3,_C4}; 

varsetS  :=  { _C3,  _C4 } 

>  solnset3:=solve(eqnset3,varset3); 

solnset3  :=  { _C3  =  .00723384531502524,  _C4  =  -.0186490538338529  } 

>  assign(solnset3); _ _ _ _ _ _ _ _ _ 

>  e2{x); 

-.00723592799999998  J 1  -  .0862233555828494  x  +  .00723384531502525 

>  p3:=plot(1e6*e2(x/100),x=0..10,title=‘DilatationaI  Strain,  e2(x)  [ue]‘): 

>  P3; 


Dilatational  Strain,  e2(x)  [ue] 


>  u2(x); 

.00240676928756317  x  +  .0186490538338527  Jl -  .0862233555828494 x 

-  .00160798400000002  J 1  -  .0862233555828494  x  x -  .0186490538338527 
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>  ex:=unapply{diff(u2(x),x),x); 


1 

ex  :=  X  .00240676928756317  -  .000803991999999991  ■  ,  ■-  . --  - 

J1  -  . 0862233555828494 X 

+  .0000693228881017671  ■—  — 

jl -. 0862233555828494 X 

-  .00160798400000002  J 1  -  .0862233555828494  x 


>  Sx; 

>  J2(x); 


-.104134248738053  10^ 
-.997839749427893  lO'^^ 


>  evalf(u2(x),5); 

.0024067  x-h  .018644  J 1.-. 086222  x  -  .0016072  Jl.  -  .086222x  x-  .018650 

>  evalf(c2(x),5); 

.000023 146 -.000023 146  /l. -. 086222 x 


>  evalf(e2(x),5); 


-.0072359  1.  -  .086222  x  +  .0072338 


>  evalf(ex(x),5); 


.0024068  -  .00080399 


+  .000069323 


1.-. 086223  X 


1.  -  .086223  X 


-.0016080.  1.-. 086223 X 
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1.  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME: 

/af s /nd . edu/user4 / j  thomasS /Maple/Transport/lDSSsol#2c  .ms 


2.  ORIGINATOR: 

Dr.  James  P.  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
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3.  HISTORY: 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 

|\ 

|\ 

I  \  - >  X  [m] 

|\ 

|\ 

x=0  x=0.010 

Deformation  variable  boundary  conditions:  u(0)=0,  u(0.10)=0 
Concentration  variable  boundary  conditions:  c(0)=0,  c(0.10)=le-7 
Reference  concentration  level;  c0=0.0 
Trapping  parameter;  traps=499  (high  trapping) 

The  equations  used  in  the  analysis  are; 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  dS/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2*o+B3  (axial  stress) 

5.  de/dx-K2*dc/dx=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2*c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattice  diffusivity  [m''2/sec] 

K1 ; = (Vs*K) / (R*T) 

Vs :  =  partial  molar  volume  of  solute  tm''3/mol  solute] 

K:=  bulk  modulus=Em/ (3*  (l-2*nu)  )  [N/m''2] 

Em;=  Modulus  of  Elasticity  [N/m''2] 
nu:=  Poisson's  ratio  [1] 

R;=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1 : =3*K 

B2 : =9  *K*alpha* ( 1+ traps ) 

B3 : =B2‘co 

traps : =  Csr *Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr:=  equilibrium  trapping  constant  [1] 
cO : =  reference  solute  concentration  [1] 

K2 : =3  *alpha* { 1  + traps ) 

alpha:=  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho :  =  mass  density  of  the  solid  [kg/m''3] 

MWs ; =  molecular  weight  of  the  solute  [kg/mol] 

Delc:=  c-cO  [1] 
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Al:=l-2*nu 

A2 : =2* { 1+nu) ♦alpha* ( 1+ traps) 
A3 : =A2*cO 


5.  REQUIRED  INPUTS; 

Ds:=lattice  diffusivity  [m''2/sec] 

Vs : =  partial  molar  volume  of  solute  [m^3/mol  solute) 
traps : =  Csr*Kr=trapping  constant  [1] 
cO  :'=  reference  solute  concentration  [1] 

MWs ; =  molecular  weight  of  the  solute  [kg/mol] 

Em:=  Modulus  of  Elasticity  [Pa] 
nu:=  Poisson's  ratio  [1] 

rho :  =  mass  density  of  the  solid  [kg/m''3] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits:=trunc(evalhf(Digits)); 


Digits  :=  15 


>  J:=Ds*(K1  *K2*c(x)-1  )*diff(c(x),x); 


J  Ds  (K1  K2  c(x)  -  1) 


—  cix) 
ydx  j 


>  deqn:=diff(J,x)=0; 


deqn  :=  Ds  K1  K2 


^3  ^ 

-c(x) 
\dx  j 


+  Ds{KlK2c{x)-  1) 


r  ^2  \ 


=  0 


>  csoln:=dsolve(deqn,c{x), explicit); 


csoln  :=  c(x)  =  ■ 


Cl 


V 


J_  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  ^C2 
Cl  Cl 


K1  K2 

1  j\  +  2K1  K2  _C1  X  +  2K1  K2  __C1  JC2 


Cl 


c{x)  =  -- 


Cl 


+  ■ 


Cl 


K1  K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x)  ,  The 
boundary  conditions  will  be  used  to  select  the  proper  one. 


>  c1  :=unappIy(simplify(op(2,csoIn[1])),x); 


cl  X 


l+Jl+2Kl  K2  _C1  X  +  2K1  K2  _C1  lo 


K1  K2 


>  c1(x); 


1  +Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2 
K1  K2 
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>  c2:=unapply(simplify(op(2,csoln[2])),x); 


c2  :=  X  — > 


~l+Jl+2Kl  K2_C1  X  +  2K1  K2  jCl  _C2 
K1  K2 


>  c2(x); 


-1+1\+2K1K2  Cl  X  +  2K1  K2  _C1  _C2 


K1K2 


>  J1:=unapply(simplify{Ds*(K1*K2*c1(x)-1)*diff(c1{x),x),x)); 


>J1(x); 


7i  :=  (  )^Ds  _C1 


Ds  Cl 


>  J2:=unapply(simplify(Ds*(K1*K2*c2(x)-1)*diff(c2{x),x))); 

72  :=  (  )-^Ds  _C1 


>J2(X); 


Ds  Cl 


Note  #2 :  The  above  results  show  that  both  mass  flux  solutions  are  identical 
and  equal  to  Ds*_Cl  where  _C1  is  a  constant  of  integration! 


>  ex1  :=dsolve(diff(e(x),x)-K2*diff(c1  {x),x)=0,e(x)); 


exl  :=  e(x)  =  ■ 


1  +  2K1K2  C1X  +  2K1K2  Cl  _C2  +  _C3  K1 


>  e1  :=unapply(simplify(op{2,ex1  )),x); 


el  :=  X  — » ■ 


\+2Kl  K2  JCI  X  +  2K1  K2  _C1  _C2  +  _C3  K1 


>e1(x); 


\+2KlK2  Cl  X  +  2K1  K2  Cl  C2  +  _C3  K1 


>  ex2:=dsoIve(diff(e(x),x)-K2*diff(c2{x),x)=0,e(x)); 


ex2  :=  e(x) 


-  h +  2  K1K2  Cl  X +  2  K1  K2  Cl  C2  +  _C3  K1 


>  e2;=unappIy(simplify(op(2,ex2)),x); 


e2  :=  X  — > 


\+2KlK2  Cl  X +  2  K1  K2  _C1  JC2  -  _C3  K1 


>  e2(x); 


\ +2  K1K2  Cl  X  +  2K1K2  Cl  C2  -  C3  K1 
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>  uxl  :=dsolve(A1  *diff (u(x),x)+A2*c1  {x)-A3-e1  (x)=0,u(x)); 

uxl  :=  u(x)  =  ^[-3A2xKlK2  _C1  -  A2  /%!  -  2  A2  K1  K2  jCl  x 

-  2  A2  K1  K2  _C1  _C2  +  3  A5  x  KP  K2^  jCl  +  Jm  K2  +  2  K2'^  K1  _C1  x 

+  2  K2'^  K1  JCI  _C2  +  3  _C5  X  Kl'^  K2'^  _C1  +  3  _C4  A1  KP  K2^  jCl )  / {A1  KP 

K2^_C1) 

%\:=1  +  2K1  K2  _C1  x  +  2  K1  K2  _C1  _C2 

>  u1;=unapply(simplify(op(2,ux1)),x); 

ul  :=  x  -  ^(3  A2  x  K1  K2  _C1  +  A2  j\  +2K1  K2  jCl  x  +  2Kl  K2  _C1  _C2 

+  2jl+2KlK2_Clx  +  2KlK2_Cl_C2  A2  K1  K2  _C1  x 
+  2  J1+2KI  K2_C1  X  +  2K1  K2  _C1  _C2  A2  K1  K2  _C1  _C2  -3A3x  Kl^  K2^  _C1 
-J1+2KI  K2_C1  X  +  2K1  K2  _C1  _C2  K2 
-2J1+2KI  K2_Clx  +  2KlK2_Cl_C2  K2^  K1  _C1  x 

-  2  J1+2KI  K2_C1  X  +  2K1K2  _C1  _C2  K2^  K1  _C1  _C2  -3_C3x  Kl^  K2^  jCl 

-  3  _C4  A1  Kl^  K2^  _C1 ) / (Al  Kl^  K2^  jCl ) 

>u1(x); 

-^[3A2xKlK2_Cl+  A2  /%!  +  2  J%1  A2  K1  K2  _C1  x  +  2  A2  K1  K2  _C1  _C2 

-3A3x  Kl^  K2^  JCl  -  K2  -  2  K2^  K1  _Clx-2  J%1  K2'^  K1  jCl  _C2 

-3  _C3x  Kf  K2'^  _C1  -  3  _C4  Al  Kf  K2^  _C1 ) / {Al  Kl^  K2^  _C1 ) 

%l:=l+2Kl  K2_Clx  +  2  K1  K2  _C1  JC2 

>  ux2:=dsolve(A1  *diff(u(x),x)+A2*c2(x)-A3-e2(x)=0,u(x)); 

ux2  :=  u(x)  =  '^[jA2xKlK2  JCl  +  A2  /%!  +  2  J%\  A2  K1  K2  _C1  x 

+  2  A2  K1  K2  _C1  JC2  +  3  A  J  x  KV-  K2'^  JCl  -  K2  -  2  K2^  K1  _C1  x 

-  2  Jm  K2^  K1  _C1  JC2  +  3  JC3x  Kf  K2^  JCI  +  3  JC4  Al  Kf  K2^  _C1 )  /  (Al  KP 
K2^  _C1 ) 

%l-l+2Kl  K2  _C1  x  +  2  K1  K2  Cl  C2 
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>  u2:=unapply(simplify(op(2,ux2)),x); 

u2\=x-^-(-3A2xKlK2  Cl  +  A2  1 1 +2  K1  K2  Clx  +  2K1K2  Cl  C2 

gV  _  V  -  -  - 

+  2jl+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2  A2  K1  K2  _C1  x 
+  2  J\+2K1  K2  _C1  X  +  2K1  K2  jCl  _C2  A2  K1  K2  _C1  _C2  +  3  A5  x  KP  K2^  _C1 

-  j\+ 2  KlK2_Clx +  2  K1K2  _C1  _C2  K2 
-2jl+2Kl  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  _C1  x 

-  2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  K2^  K1  _C1  _C2  +  3_C3x  Kl^  K2'^  JCI 
+  3  _C4  A1  Kl^  K2^  _C1 )  / (A1  Kl^  K2‘^  _C1 ) 

>  u2(x); 

^(-3A2xKl  K2  _C1  +  A2  +  2  A2  K1  K2  _Clx  +  2  Jm  A2  K1  K2  _C1  _C2 

+  3A3x  KP  K2^  _C1  -  f%l  K2  -  2  K2^  K1  _Clx-2  K2^  K1  _C1  _C2 

+  3_C3x  KP  K2^  _C1  +  3  _C4  A1  Kf  K2'^  _C1  )/{Al  KP  K2^  _C1 ) 

%l-.=  l+  2Kl  K2  _C1  x  +  2  K1  K2  _C1  _C2 

>  S1  :=x->simpIify{B1  *e1  (x)-B2*c1  (x)+B3); 

SI  :=x-^  siniplify(5i  el(x)  -  B2  cl(x)  +  B3) 

>S1(x); 

(b1  K2  j\+2Kl  K2  jCl  X  +  2K1  K2  jCl  _C2  +  B1  K2  _C3  K1  -  B2 

-  B2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  +  B3  K1  K2)  j  {K1  K2) 

>  S2;=x->simplify(B1  *e2(x)-B2*c2(x)+B3); 

5'2  :=  X  ^  simplify(57  e2(x)  -  B2  c2(x)  +  B3) 

>  S2(x); 

-  [b1  K2  Jl+2K1  K2  _C1  X  +  2K1  K2  _C1  _C2  -  B1  K2  _C3  K1  +  B2 

-B2  J 1+2  K1  K2_Clx  +  2Kl  K2  _C1  _C2  -  B3  K1  K2)  j  {K1  K2) 

Note  #3:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 

>  K:=(Em/(3*{1-2*nu))); 


>  lambda:=(Em*nu)/((1+nu)*(1-2*nu)); 


Em 

K:= - 

3  -  6  V 


Em  V 


(l+v)(l-2v) 
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>  mu:=Em/(2*{1+nu)); 


Em 

}J.:= - 

2  +  2v 

>  alpha:=(rho*Vs)/(3*[\/iWs); 

1 

a  := - 

3  MWs 

>  K1:=(Vs*K)/(R‘'T); 


Em 

K1  := - 

(3-6v)RT 

>  K2:=3*alpha*(1+traps); 


>  K1‘K2; 


>  A1:=(1-2*nu); 


>  A2:=2*(1+nu)*alpha*(1+traps); 


>  A3:=A2*cO; 


...  p  Vs  (I  +  traps) 
Kz  '= 

MWs 


Vs^  Em  p  ( 1  +  traps ) 
(3-6v)RTMWs 


A1  :=  I -2v 


( 1  +  v)  p  ( 1  +  traps) 
MWs 


2  (l+v)pV^(l  +  traps )  cO 

A3  := - 

3  MWs 

>  B1:=3*K; 


>  B2:=9*K*alpha*(1+traps); 


>  B3;=B2*cO; 


Bl 


Em 

;=3 - 

3-6v 


Em  p  V5  ( 1  +  traps ) 

B2  '.=  3 

{3-6v)MWs 


Em  p  ( 1  +  traps)  cO 
i3-6v)MWs 
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>c1(x); 

f 


1  + 

V  V 


^  ^  Em  p  ( 1  +  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  jCl  _C2 


(3-6v)RTMWs 
MWsj (Vs^  Em  p  ( 1  +  traps)) 


{3-6v)RTMWs 


{3-6v)RT 


>  c2(x); 

r 


^  112  P  ( 1  +  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 


V 


{3-6v)RTMWs 


i3-6v)RTMWs 


(3-6v)RT 


MWsj  { Vs^  Em  p  ( 1  +  traps)) 


>e1(x); 

f 


^  ^  Em  p  ( 1  +  traps )  _C1  x  ^  Em  p  ( 1  +  traps)  _C1  _C2  _C3  Vs  Em 


{3-6v)RTMWs 
{3~6v)RTl(VsEm) 


i3-6v)RTMWs 


(3-6v)RT  J 


>  e2{x); 


^  ^  Vs^  Em  p  ( 1  +  traps )  _C1  x  ^  Vs^  Em  p  ( 1  +  traps )  _C1  jC2  _C3  Vs  Em 


(3-6v)RTMWs 
{3-6v)RTliVsEm) 


(3-6v)RTMWs 


(3-6v)RT 


>u1(x); 

1 

'  3 


^  ( 1  +  v)  p^  ( 1  +  traps  f  X  Em  _C1  2(l+v)pys(l  +  traps)  J%1 

3  MWs 


MWs^{3-6v)RT 


4  ( 1  +  V)  pV^^  ( 1  +  traps  f  Em  _C1  x 

3  MWs^(3-6v)RT 

4  ( 1  +  V )  p  ( 1  +  traps  f  Em  _C1  _C2 

3  MWs^(3-6v)RT 


^  ( 1  +  V )  p^  Vs^  ( 1  +  traps  f  cO  x  EnV  _C1  J%1  p  ys  ( 1  +  traps) 

MWs^{3-6vf  R3T^  ^Ws 

^  p^  y^^  ( 1  +  traps  f  Em  _C1  x  p^  y^^  ( ^  ^  Em  _C1  _C2 

MWs^i3-6v)RT  MWs'^  (3  ~6v)RT 

^  _C3  X  y/  Ern^  p^  ( 1  +  traps)'^  _C1  ^  _C4  ( 1  -  2  v)  y/  p^  ( 1  +  traps  f  _C1 

{3-6\f  R^T^MWs^  {3-6vf  R^J^MWs'^ 

{3-6vf  R^T^  MWs^l[{\  -  2  V)  y/  Ern^  p^  ( 1  +  trapsf  _C1 ) 


^  ^  12  P  ( 1  +  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 

{3-6v)RTMWs  (3  -6v)  RTMWs 
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>  u2(x); 

f 


( 1  +  V)  ( 1  +  traps')  X  Em  _C1  2(l+v)pV^(l  +  traps)  J%1 

MWs^(3-6v)RT  3  MWs 


+ 


+ 

3 


4  J%1  ( 1  +  V )  p^  ( 1  +  trapsf  Em  _C1  x 

3  MWs'^i3-6v)RT 

4  J%1  ( 1  +  v)  p^  ( 1  +  trapsf  Em  _C1  _C2 


MWs^{3-ev)RT 


+  2 


-2 


+  3 


( 1  +  v)  p^  Vs^  ( 1  +  trapsf  cO xEtr?  _C1  J%1  p  ( 1  +  traps) 

MWs^  {3-6vf  R^T^ 

J%1  p^  ( 1  +  trapsf  Em  _C1  x  ^  J%1  p^  Vs^  ( 1  +  trapsf  Em  _C1  _C2 
MWs^{3-6v)RT  MWs^{3-6v)RT 

C3  X  Em^  p^  ( 1  +  traps  f  _C1  _C4  {  \ -2  v)  Vs'^  Em^  p  {\  +  traps  f  _C1 

(3-6vf  R^I^MWs'^  (3  -6vf  R^T^  MWs^ 


{3-6vfR^T^  MWs'^l[{\  -  2  V)  Ern^  p^  ( 1  +  trapsf  _C1 ) 


^  ^  2  P  ( 1  +  traps)  _C1  x  ^  Vs^  Em  p  ( 1  +  traps)  _C1  _C2 


i3-6v)RTMWs 


i3-6v)RTMWs 


>S1(x); 


>  S2(x); 


-  (MWs  _C3  Vs  Em -3  R  TMWs  +  6R  T  MWs  v  +  Emp  cO  +  Emp  Vs^  cO  traps)!  ( 

(-1  +2v)  Vs  MWs) 

( MWs  jC3  Em  -3  RT  MWs  +  6  RT  MWs  v  +  Em  p  Vs'^  cO  +  Em  p  Vs^  cO  traps )  j  ( 
(-1  +2v)  Vs  MWs) 


>S1(x)-S2(x); 


Note  #4;  The  stresses  are  same  for  each  solution  root,  and  do  not  depend  on 
the  position  x!  The  stresses  are  therefore  constant  throughout  the 
body.  We  define  a  new  stress  function,  Sx. 


>  Sx:=S2(x); 

Sx  -  (MWs  _C3  Vs  Em -3  R  TMWs  +  6RT  MWs  v  +  Em^  Vs^  cO  +  Em  p  Vs'^  cO  traps)!  ( 
(-1  +2v)  Vs  MWs) 


Note  #5:  Now  we  will  introduce  numerical  values  for  the  material  properties. 
The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 
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>  Ds:=1e-9; 


>  Vs:=2.02e-6; 

>  traps:=499; 

>  c0:=0.0; 

>  MWs:=0.001 00797; 

>  Em:=200e9; 

>  nu:=0.3; 

>  rho:=7800; 

>  T:=293: 

>  R;=8.31432; 

>  lambda; 

>  mu; 

>  alpha; 

>  Rh:=R/MWs; 

>  K1; 

>  K2; 

>  K1*K2; 

>  1/(K1*K2); 


Ds:=A  10-« 

:=  .202  10-5 
traps  :=  499 
c0:=0 

MWs  :=  .00100797 
Em  :=  .200  lO*^ 
v:=  .3 
p  ;=  7800 
T  :=  293 
R:=  8.31432 
,166666666666667  lO'^ 
.115384615384616  10'^ 
.769230769230769  10'' 
5.21047253390476 
Rh  :=  8248.57882675080 
138.199274509089 
7815.70880085715 
.108012528605276  10’ 
.925818525788271  lO'^ 
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>  A1; 


>  A2; 


>  A3; 


> 


B1;, 


>  B2; 


>B3; 


.4 

6773.61429407620 

0 

.500000000000001  10’2 
.390785440042860  10'® 
0 


Note  #6:  Now  let's  solve  for  the  integration  constants:  _C1,  _C2 ,  _C3 ,  and  _C4, 
using  the  boundary  data. 


>  c1(x); 

.925818525788271  10-6  +  .925818525788271 

J 1  +  .216025057210552  10’  _Ci  a:  +  .216025057210552  10^  _C1  _C2 

>  c2(x); 

.925818525788271  lO'®  -  .925818525788271  lO'® 

J 1  +  .216025057210552  10’  _C1  x  +  .216025057210552  10^  _C1  _C2 

>  evalf(c1(x),5); 

.92584  10-6  +  92584  10-6  J  j  +  21602  10’  _C1  x  +  .21602  10’  _C1  _C2 

>  evalf(c2(x),5); 

.92584  10-6  _  92584  10-6  Jl.  ^  21602  10^  _C1  x  +  .21602  10^  _C1  _C2 

>  eqnsetl  :={0=c1  (0),1  e-7=c1  (0.1 0)}; 

eqnsetl  :={  0  =  .925818525788271  10-6 

+  .925818525788271  10-6  Jl  +  .216025057210552  10'^_C7  _C2,  .1  10-6  = 
.925818525788271  10-6  +  .925818525788271  iq-s 
J 1  +  216025.057210552  __C1  +  .216025057210552  10’  _C1  _C2  } 

>  varsetl  :={_C1  ,_C2}; 

varsetl  :=  { _C2,  _C1 } 

>  solnsetl  :=soIve(eqnset1 , varsetl ); 


solnsetl  := 


>  eqnset2:={0=c2(0),1  e-7=c2(0.1 0)}; 

eqnsetl  :=  {  .1  10-6  ^  .925818525788271  10-6  _  .925818525788271  10-6 

j  1  +  216025.057210552  _C1  +  .216025057210552  10^  _C1  _C2 , 0  = 
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.925818525788271  lO'^ 

-.925818525788271  10"^  J 1  +  .216025057210552  10’  _C1  _C2  } 

>  varset2:={_C1,_C2}; 

varsetl  :=  { _C2,  _C1 } 

>  solnset2:=solve(eqnset2,varset2); 

solnset2  :=  { _C2  =  0,  _C1  =  -.945993735697361  lO'^ } 

>  assign(solnset2); _ _ _ 

Note  #7:  The  solution  cl(x)  is  not  capable  of  satisfying  the  boundary 

conditions,  as  evidenced  by  the  lack  of  solution  for  the  given 
boundary  conditions.  The  concentration  function  c2(x)  is  the 
correct  solution  in  this  case! 


>  c2{x); 

.925818525788271  10'^  -  .925818525788271  lO'®  jl  -  2.04358350874846  x 

>  p1:=pIot(1e6*c2(x/100),x=0..10,title=‘Concentration,  c2{x)  [ppm]‘): 

>p1; 


Concentration,  c2(x)  [ppm] 


>  p2:=plot(1  e9*(c2(0)+((c2(0.1 0)-c2(0))/0.1 0)*x/1 00-c2(x/1 00)),x=0..1 0,title=‘Concentration  Difference  [ppb]‘): 
>p2; 


Concentration  Difference  [ppb] 
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>  u2(x); 


-.0156778440000000  x  +  .000786845261334466  J 1  -  2.04358350874846 x 

-  .00160798399999998  J 1  -  2.04358350874846  x  x  +  2.49999999999998  _C3  x 
+  .999999999999996  _C4 

>  eqnset3:={0=u2(0),0=u2(0.10)}; 

eqnsetS  :=  { 0  ==  .000786845261334466  -i-  .999999999999996  _C4, 

0  =  -.00100935844318366  -I-  .249999999999998  _C3  +  .999999999999996  _C4 } 

>  varset3:={_C3,_C4}; 

varset3  :=  { _C3,  _C4 } 

>  solnset3:=solve(eqnset3,varset3); 

solnset3  :=  { _C4  =  -.000786845261334466,  _C3  =  .00718481481807253  } 

>  assign(solnset3); _ _ 

>  e2(x); 

-.00723592799999998  J 1  -  2.04358350874846  x  +  .00718481481807253 

>  p3:=plot(1e6*e2(x/100),x=0..10,title=‘Dilatational  Strain,  e2(x)  [ue]‘): 

>p3; 


Dilatationai  Strain,  e2(x)  [ue] 


>  u2(x); 

.00228419304518136  x  +  .000786845261334466  Jl  -  2.04358350874846 x 

-  .00160798399999998  J 1  -  2.04358350874846  x  x  -  .000786845261334466 
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>  Sx; 


-.255565909637320  10® 


>  J2(x); 


-.945993735697361  lO'^^ 

>  evalf(u2(x),5); 

.0022826  jc  +  .00078643  Jl.- 2.0436  jc  -  .0016069  jl.  -2.0436  x  x  -  .00078689 

>  evalf{c2(x),5); 

.92584  10-^  -  .92584  lO'^  Jl.  -  2.0436  a; 

>  evalf(e2(x),5); 

-.0072359  Jl.- 2.0436  jc  +  .0071848 

>  evalf(ex(x),5); 

.0022842  -  .00080399  ,  ^  +  .0016430  -7==—  -  -0016080  Jl.  -2.0436  x 

J 1.- 2.0436  X  J 1.- 2.0436  X 
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1.  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME: 

/af s/nd. edu/user4/j  thomas 5 /Maple /Transport /lDSSsol#2d. ms 


2 .  ORIGINATOR : 

Dr .  James  P .  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
(219)  631-9371 


3.  HISTORY: 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 

/  _  \ 

/  \ 

/  \  >  X  [m] 

/  _  \ 

/  \ 

x=0  x=0.010 

Deformation  variable  boundary  conditions:  u(0)=0,  u(0.10)=0 
Concentration  variable  boundary  conditions:  J(0)=0,  c(0.10)=le-7 
Reference  concentration  level:  c0=0.0 
Trapping  parameter;  traps=19  (low  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dj/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  dS/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2 *c+B3  (axial  stress) 

5.  de/dx-K2*dc/dx=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2 *c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds;=lattice  diffusivity  [m''2/sec] 

K1 := (Vs*K) / (R*T) 

Vs :  =  partial  molar  volume  of  solute  [m''3/mol  solute] 

K;=  bulk  modulus  =  Em/ (3*  (l-2*nu)  )  [N/m''2] 

Em:=  Modulus  of  Elasticity  [N/m^2] 
nu;=  Poisson's  ratio  [1] 

R;=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 

B1;=3*K 

B2 : =9*K*alpha* (1+traps) 

B3 ; =B2  *co 

traps : =  Csr *Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr : =  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* ( 1  +  traps ) 

alpha: =  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho ;  =  mass  density  of  the  solid  [kg/m''3] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Dele : =  c-cO  [1] 
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A1 : =l-2*nu 

A2 : =2  * ( 1+nu) *alpha* ( 1+ traps) 
A3 :=A2*cO 


5.  REQUIRED  INPUTS: 

Ds:=lattice  dif fusivity  [m^2/sec] 

Vs :  =  partial  molar  volume  of  solute  [ra''3/mol  solute] 
traps ; =  Csr*Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Em:=  Modulus  of  Elasticity  [Pa] 

nu:=  Poisson's  ratio  [1] 

rho :  =  mass  density  of  the  solid  [kg/m''3] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits:=trunc(evalhf(Digits)); 


Digits  :=  15 


>  J:=Ds*(K1  ‘K2*c{x)-1  )*diff(c(x),x); 


J Ds  {K1  K2  c{x)  -  \) 


dx 


c(x) 


>  deqn:=J=0; 


deqn  :=  Ds  {K1  K2  c{x)  -  1) 


V 


=  0 


>  csoln:=dsoIve(deqn,c(x), explicit); 


1 

csoln:=c(x)= - ,  c(a:)=  Cl 

K1K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x).  The 
first  solution  is  obviously  incorrect  in  that  the  concentration 
throughout  the  rod  is  defined  in  terms  of  the  constants  K1  and  K2 . 
The  second  solution  is  adopted  as  correct. 


>  c2;=unapply(simplify(op(2,csoln[2])),x); 


>  c2(x); 


c2  ;=  X  — >  _C1 
Cl 


>  J2:=unapply(simplify(Ds*(K1*K2*c2(x)-1)*diff(c2(x),x))); 


J2:=Q 


>  J2(x); 


0 


Note  #2:  The  above  result  shows  that  the  mass  flux  is  identically  zero,  as 
it  should  be. 
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Note  #3 :  Since  the  concentration  is  constant,  we  have  from  the  third  governing 
equation  that  e(x)  equals  a  constant. 


>  e2:=x->_C2; 

>  e2(x); 


e2  :=  X  —>  _C2 
C2 


>  ux2:=dsolve{A1  *diff (u{x),x)+A2*c2(x)-A3-e2(x)=0,u(x)): 

-xA2  Cl  +  X  A3  +  X  C2  +  C3  A1 


ux2  :=  u(jc)  =  • 

>  u2:=unapply(simplify(op(2,ux2)),x); 


A1 


m2  :=  jc  - 


X  A2  _C1  -  X  A3  -  X  _C2  -  _C3  A1 
A1 


>  u2(x); 


xA2_Cl-xA3-x  _C2  -  _C3  A1 
A1 


>S2:=x->simplify(Bre2(x)-B2*c2(x)+B3); 

S2  :=x—^  simplify(5i  e2(x)  -  B2  c2(x)  +  B3) 

>  S2(x); 

B1  C2-B2  C1+B3 


Note  #4:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 


>  K:=(Em/(3*(1-2‘nu))); 


>  lambda:=(Em*nu)/((1  +nu)*(1  -2*nu)); 


>  mu:=Em/(2*(1+nu)); 


>  aIpha:=(rho‘Vs)/(3*MWs); 


>  K1:=(Vs*K)/(R‘T); 


Em 

K:= - 

3  -  6  V 


^:= 


Em  V 

(l+v)(l-2v) 


Em 

2  +  2v 


1  pVs 

a  ■=-■ - 

3  MWs 


Vi'  Em 

K1  := - 

{3-6v)RT 
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>  K2:=3*alpha*(1+traps); 


p  Vs  (1+ traps) 

KZ 

MWs 

>  K1‘K2; 

Vs^  Em  p  ( 1  +  traps ) 

, 

(3-6v)RTMWs 

>A1:=(1-2'‘nu); 

A1  :=l-2v 

>  A2:=2*(1+nu)*alpha*(1+traps); 

2(l+v)pV5(l  +  traps) 

3  MWs 

>  A3:=A2*cO; 

2  (l+v)pV5(l  +  traps )  cO 

A3 

3  MWs 

>  B1;=3*K; 

Em 

B1  :=3 - 

3-6v 

>  B2:=9*K*alpha*(1+traps); 

Em  p  ( 1  +  traps) 

{3-6v)MWs 

>  B3:=B2*cO; 

Em  p  ( 1  +  traps )  cO 
{3-6v)MWs 

>  c2(x); 

^C1 

>  e2(x); 

_C2 

>  collect(u2(x),x); 


2  (l+v)pV5(l  +  traps)  _C1  2(l+v)pVj'(l  +  traps)  cO 

^ _ MWs _ J _ _ 

1  -2v 


C2 


+ 


C3 


>  S2(x); 


Em  ( -_C2  MWs  +  p  _C1  +  p  _C1  traps  -  p  Vs  cO  -  p  Vs  cO  traps ) 

{-l+2v)  MWs 
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Note  #5:  Now  we  will  introduce  numerical  values  for  the  material  properties. 

The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 

>  Ds:=1e-9; 

Ds:=.l  10-« 

>  Vs:=2.02e-6; 

;=  .202  10-5 

>  traps:=19; 

traps  :=  19 

>  c0:=0.0; 

c0:=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em:=200e9; 

Em  :=  .200  lO*^ 

>  nu:=0.3; 

v:=  .3 

>  rho:=7800; 

p  :=  7800 

>T:=293; 

T  :=  293 

>  R:=8.31432: 

i?;=  8.31432 

>K; 

.166666666666667  10’^ 

>  lambda; 

.115384615384616  lO'^ 

>  mu; 

.769230769230769  10" 

>  alpha; 

5.21047253390476 

>  Rh:=R/MWs; 

Rh  ■=  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

312.628352034286 

>  K1*K2; 

43205.0114421104 
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>  1/(K1‘K£); 

>  A1; 

>  A2; 

>  A3; 

>B1; 

>  B2; 

>  B3; 


.0000231454631447068 

.4 

270.944571763048 

0 

.500000000000001  10^2 
.156314176017143  lO'^ 


0 


Note  #6: 

Now  let's  solve  for  the 
using  the  boundary  data. 

integration  constants:  _C1,  _C2 ,  _C3 ,  and  _C4, 

>  c2(x); 

-Cl 

>_C1:=1e-7; 

_C1  :=.l  10-6 

>  c2(x); 

.1  10-^ 

>  u2(x); 


-.0000677361429407620  x  +  2.50000000000000  x  _C2  +  1.00000000000000  _C3 

>  eqnset1:={0.0=u2{0.0),  0.0=u2{0.10)}; 


eqnsetl  :=  {  0  =  1.00000000000000  _CJ, 

0  =  -.677361429407620  10  ^  +  .250000000000000  _C2  +  1.00000000000000  _C3  } 

>  varsetl  :={_C2,_C3}; 


varsetl  :=  {  _C2,  _C3  } 

>  solnsetl  :=solve(eqnset1,varset1); 

solnsetl  :=  {  _C3  =  0,  _C2  =  .0000270944571763048  } 

>  assign(solnsetl); 
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>  c2(x); 


>  e2(x); 

>  u2(x); 

>  S2(x); 


.1  10-^ 

.0000270944571763048 

0 

-.208418901356190  10’ 
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1.  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME: 

/af s/nd. edu/user4/ j  thomas5/Maple/Transport/lDSSsol#2e.ms 


2.  ORIGINATOR: 

Dr .  James  P .  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
(219)  631-9371 


3.  HISTORY: 

Written:  June-1994 

Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem 
solved  is  shown  below: 

|\ 

|\ 

1  \  - >  X  [m] 

|\ 

h 

x=0  x=0.010 

Deformation  variable  boundary  conditions:  u(0)=0,  u{0.10)=0 
Concentration  variable  boundary  conditions:  J(0)=0,  c(0.10)=le-7 
Reference  concentration  level:  c0=0.0 
Trapping  parameter:  traps=499  (high  trapping) 

The  equations  used  in  the  analysis  are: 

1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds» (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  ds/dx=0  (steady-state  deformation  equation  with  zero  body  forces) 

4.  S=Bl*e-B2*c+B3  (axial  stress) 

5.  de/dx-K2*dc/dx=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2*c-A3  (dilatational  strain) 

The  constants  used  in  the  plane  stress  analysis  are  defined  below: 

Ds:=lattice  diffusivity  [m^2/sec] 

Kl:=(Vs*K) / (R*T) 

Vs : =  partial  molar  volume  of  solute  [m^3/mol  solute] 

K:=  bulk  modulus=Em/ (  3  *  ( l-2*nu)  )  [N/m''2] 

Em:=  Modulus  of  Elasticity  [N/m''2] 
nu:=  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T;=  temperature  [K] 

B1 : =3*K 

B2 : =9  *K*alpha* ( 1  +  traps  ) 

B3 : =B2*co 

traps :=  Csr *Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr : =  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* (1  +  traps ) 

alpha:+  ( rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho :  =  mass  density  of  the  solid  [kg/m''3] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Dele : =  c-cO  [ 1 ) 


/| 

/| 

/| 

/| 

/I 
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A1 : =1-2  *nu 

A2 : =2  * ( 1+nu) * alpha* ( 1  + traps } 
A3 : =A2  *cO 


5.  REQUIRED  INPUTS: 

Ds:=lattice  diffusivity  [m^2/sec] 

Vs :  =  partial  molar  volume  of  solute  [m''3/mol  solute] 
traps : =  Csr*Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Em:=  Modulus  of  Elasticity  [Pa] 
nu:=  Poisson's  ratio  [1] 

rho : =  mass  density  of  the  solid  [kg/m^3] 

T:=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  Digits:=trunc{evalhf(Digits)); 


Digits  :=  15 


>  J:=Ds*(K1  *K2*c(x)-1  )*diff(c(x),x); 


J  :=  Ds  (Kl  K2  c{x)  -  1) 


dx 


c{x) 


>  deqn:=J=0; 


deqn  ;=  Ds  (Kl  K2  c(x)  -  1 ) 


—  c(x) 
ox 


=  0 


>  csoln;=dsolve(deqn,c(x), explicit); 


1 

csoln:=c(x)= - ,  c(a')  =  Cl 

K1K2 


Note  #1:  There  are  apparently  two  "roots"  to  the  solution  for  c(x) .  The 
first  solution  is  obviously  incorrect  in  that  the  concentration 
throughout  the  rod  is  defined  in  terms  of  the  constants  Kl  and  K2 . 
The  second  solution  is  adopted  as  correct. 


>  c2:=unapply(simplify(op(2,csoln[2])),x); 


>  c2{x); 


c2  ;=  A  — >  Cl 


^C1 

>  J2:=unapply(simplify{Ds*(K1*K2*c2(x)-1)*diff(c2{x),x))); 


J2  :=0 


>  J2(x); 


0 


Note  #2:  The  above  result  shows  that  the  mass  flux  is  identically  zero,  as 
it  should  be. 
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Note  #3 ;  Since  the  concentration  is  constant,  we  have  from  the  third  governing 
equation  that  e{x)  equals  a  constant. 


>  e2:=x->_C2; 

>  e2(x); 


e2  :=  X  _C2 
C2 


>  ux2:=dsolve{A1  *diff(u{x),x)+A2*c2(x)-A3-e2(x)=0,u(x)); 

-X  A2  Cl  +x  A3  +  X  C2  +  C3  A1 


ux2  :=  u(x) 

>  u2;=unapply(simplify(op(2,ux2)),x); 


A1 


u2  '.=  x—^ 


-X  A2  _C1  +  X  A3  +  X  _C2  +  _C3  A1 
A1 


>  u2(x); 


-xA2  _C1  +xA3  +  x_C2  + _C3A1 
A1 


>  S2:=x->simplify{B1  *e2(x)-B2‘c2{x)+B3); 

S2\=x^  simplify(5i  e2(x)  -  B2  c2(x)  +  B3) 

>  S2{x); 

B1  C2-B2  C1+B3 


Note  #4:  At  this  point,  we  will  introduce  expressions  for  the  constants  and 
then  simplify  the  results  before  quantifying  the  constants  and 
determining  the  constants  of  integration. 


>  K:=(Em/(3*(1-2*nu))); 


>  lambda:=(Em*nu)/((1  +nu)*(1  -2*nu)); 


>  mu:=Em/(2*(1+nu)); 


>  alpha:=(rho*Vs)/(3*MWs); 


>  K1:=(Vs*K)/(R*T); 


Em 

K:= - - 

3-6v 


Em  V 

(l+v)(l-2v) 


Em 

2  +  2v 


1  p 

a  := - 

3  MWs 


yy  Em 

K1  := - 

{3-6v)RT 
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>  K2:=3*alpha*(1+traps); 


ip  Vs  straps) 

KZ 

MWs 

>  K1*K2; 

Vs^  Em  p  ( 1  +  traps ) 

{3-6v)RTMWs 

>  A1:=(1-2*nu); 

A1  :=l-2v 

>  A2;=:2*(1+nu)*alpha*(1+traps); 

2(l+v)pV5(l  +  traps) 

A2 

3  MWs 

>  A3:=A2*cO; 

2  (l+v)pV4'(l  +  traps )  cO 

A3 

3  MWs 

>  B1:=3*K; 

Em 

B1  :=  3 - 

3-6v 

>  B2:=9*K*alpha*(1+traps); 

Em  p  ( 1  +  traps) 

{3-6v)MWs 

>  B3:=B2*cO; 

Em  p  ( 1  +  traps)  cO 

B3  3 

{3-6y)MWs 

>  c2(x); 

^C1 

>  e2(x); 

_C2 

>  collect(u2(x),x); 


^  2(l+v)pV5(l  +  traps)  _C1  2  (l+v)p  V5(l  +  traps)  cO  ^ 

3  MWs  3  MWs 


+  C3 


1  -2v 


>  S2(x): 


Em  ( _C2  MWs  -  p  _C1  -  p  W  jCl  traps  +  Vs  cO  +  Vs  cO  traps ) 

{-\+2v)MWs 
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Note  #5:  Now  we  will  introduce  numerical  values  for  the  material  properties. 

The  values  selected  are  typical  for  internal  hydrogen  as  a 
solute  in  AISI  4340  steel. 

>  Ds:=1e-9; 

:=.l  10-« 

>  Vs:=2.02e-6; 

:=  .202  10-5 

>  traps:=499; 

traps  ;=  499 

>  c0:=0.0; 

c0:=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em;=200e9; 

Em  :=  .200  lO'^ 

>  nu:=0.3; 

v:=  .3 

>  rho;=7800; 

p  :=  7800 

>  T;=293; 

T  :=  293 

>R:=8.31432; 

/?:=  8.31432 

>K; 

.166666666666667  lO'^ 

>  lambda; 

.115384615384616  10’^ 

>  mu; 

.769230769230769  10'= 

>  alpha; 

5.21047253390476 

>  Rh:=R/l\/IWs; 

Rh  :=  8248.57882675080 

>  K1; 

138.199274509089 

>  K2; 

7815.70880085715 

>  K1*K2; 

.108012528605276  10’ 

A-2e-5 


>1/(K1*K2); 


>  A1; 

>  A2; 

>  A3; 

>B1; 

>  B2; 

>  B3; 


.925818525788271  IQ-^ 
.4 

6773.61429407620 

0 

.500000000000001  10^2 
.390785440042860  lO'"^ 


0 


Note  #6: 

Now  let's  solve  for  the 
using  the  boundary  data. 

integration  constants:  _C1,  _C2,  _C3 ,  and  _C4, 

>  c2(x); 

_Ci 

>_C1:=1e-7; 

_C1  ;=.l  lO*^ 

>  C2(x); 

.1  10-6 

>  u2(x); 


-.00169340357351905  ;c  +  2.50000000000000  a:  _C2  +  1.00000000000000  _C3 

>  eqnset1:={0.0=u2(0.0),  0,0=u2(0.10)}; 


eqnsetl  :=  {  0  =  1.00000000000000  _CJ, 

0  =  -.000169340357351905  +  .250000000000000  _C2  +  1.00000000000000  _C3  } 

>  varsetl  :={_C2,_C3}; 


varsetl  ;=  { _C3,  _C2  } 

>  solnsetl  :=solve(eqnset1 , varsetl ); 

solnsetl  :=  {  _C3  =  0,  _C2  =  .000677361429407620  } 

>  assign(solnsetl); 


A-2e-6 


>  c2(x); 


.1  10-^ 


>  e2(x); 

>  u2(x); 

>  S2(x); 


.000677361429407620 

0 

-.521047253390490  10^ 


i 
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1.  MAPLE  PROGRAM  DIRECTORY  AND  FILE  NAME: 

/ af s/nd . edu/user4/ j  thomas5/Maple/Transport/lDSSsol#3a .ms 


2 .  ORIGINATOR : 

Dr.  James  P.  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 
(219)  631-9371 


3.  HISTORY: 

Written:  12-Nov-1994 
Latest  Revision:  13-Feb-1995 


4.  PROGRAM  DESCRIPTION: 

One-dimensional,  steady-state  analysis  of  the  fully  coupled  solute  transport  and  trapping 
equations  using  "plane  stress"  constitutive  equations  for  stress.  The  particular  problem  to 
be  solved  is  shown  below.  It  is  the  1-D  SS  transport  problem,  but  with  a  (l/x)''{3/2) 
singular  body  force  applied.  This  is  meant  to  "simulate"  the  stress  occurring  at  the  tip  of 
a  crack: 


Body  Force,  Fx 


Fx=A/x^(3/2)  (N/m'-S) 


>  x[m] 


/  _ 

/ 

/  — > 

/  _ 

/ 


x=0  x=0.010 


x[m] 


Deformation  variable  boundary  conditions;  u(0)=0,  S(0.10)=0 
Concentration  variable  boundary  conditions:  J(0)=0,  c(0.10)=le-7 
Reference  concentration  level:  c0=0.0 

Trapping  parameter:  ltrap=19  (low  trapping);  htrap=499  (high  trapping) 
Body  Force:  A=15xl0^6  [N/m^(3/2)] 


The  equations  used  in  the  analysis  are; 


1.  dJ/dx=0  (steady-state  diffusion  equation) 

2.  J=Ds* (Kl*c*de/dx-dc/dx)  (mass  flux) 

3.  dS/dx+Fx=0  (steady-state  deformation  equation  with  applied  axial  body  force,  Fx) 

4.  S=Bl*e-B2*c+B3  (axial  stress) 

5.  de/dx-K2 *dc/dx+Fx/Bl=0  (dilational  strain  gradient) 

6.  e=Al*du/dx+A2*c-A3  (dilatational  strain) 


The  constants  used  in  the  plane  stress  analysis  are  defined  below: 


Ds:=lattice  diffusivity  [m^2/sec] 


K1 : = (Vs*K) / (R*T) 

Vs :  =  partial  molar  volume  of  solute  [m"'3/mol  solute] 
K:=  bulk  modulus=Em/ ( 3 * ( l-2*nu) )  [N/m^2) 

Em:=  Modulus  of  Elasticity  [N/m"'2] 
nu : =  Poisson's  ratio  [1] 

R:=  universal  gas  constant=8 . 31432  [J/mol-K] 

T:=  temperature  [K] 


B1:=3*K 

B2 : =9  *K*alpha* ( 1  +  traps ) 

B3 ; =B2*co 

(1  or  h)traps:=  Csr*Kr=trapping  constant  [1] 

Csr:=  saturation  trap  concentration  [1] 

Kr:=  equilibrium  trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

K2 : =3  *alpha* { 1+traps ) 

alpha:=  (rho*Vs ) / ( 3 *MWs ) =solute  concentration  expansion  coefficient  [m/m/Delc] 
rho :  =  mass  density  of  the  solid  [kg/m''3] 

MWs : =  molecular  weight  of  the  solute  [kg/mol] 

Delc:=  c-cO  [1] 


A1 : =l-2*nu 

A2 : =2* ( 1+nu) *alpha* (1+traps) 
A3 :=A2*cO 


5 .  REQUIRED  INPUTS : 

Ds  ;  =lattice  diffusivity  [m''2/sec] 

Vs ;  =  partial  molar  volume  of  solute  [m''3/mol  solute) 
(1  and  h)traps:=  Csr*Kr=trapping  constant  [1] 
c0:=  reference  solute  concentration  [1] 

MWs ; =  molecular  weight  of  the  solute  [kg/mol] 

Em;=  Modulus  of  Elasticity  [Pa] 

nu;=  Poisson's  ratio  [1] 

rho : =  mass  density  of  the  solid  [kg/m^3] 

T;=  temperature  [K] 


6.  SYMBOLIC  ANALYSIS: 


>  restart; 

>  Digits:=trunc(evalhf(Digits)); 


>  s:=x->Bre(x)-B2*c{x)+B3; 


>  diff(s{x),x)+fx(x); 


>  dedx:=x->K2*diff(c(x),x)-fx(x)/B1 ; 


Digits  :=  15 


5  :=  jc  — >  B1  e(x)  -  B2  c(x)  +  B3 


( 9  ^ 

( 5  1 

B1 

1 

1  ro 

-B2 

—  c(x) 
1^9x  j 

+  fx(x) 


dedx  :=  X  ^  K2  diff(c(x),  x)  - 


fx(x) 

B1 


>  j:=Ds*(K1*c(x)*dedx(x)-diff(c(x),x)): 


( 

f 

fx(x)  ^ 

fd 

j  ■=  Ds 

KI  c(x) 

K2 

—  c(^') 

- 

- 

—  c(x) 

\ 

^9x  J 

B1  j 

^9x  )) 

>  J  :=  unapply(Ds*((K1*K2*c(x)-1)’‘diff(c(x),x)-(K1/B1)*c(x)*F(x)),x); 


J  X  Ds 


{K1  K2  c(x)  -  1 )  diff(c(x),  x) 


V 


K1  c(x)  F(x) 
B1 


>  J(x); 


A-3a-2 


>  F:=x->A/x''(3/2); 


r 

K1  c(x)  F(x)  ^ 

Ds 

{KlK2c{x)-\) 

- 

K 

[dx  j 

B1  J 

F-=x 


A 


,.3/2 


Note  #1:  The  governing  differential  equation  in  this  case  is  J=constant 
because  dJ/dx=0,  and  we  are  specifying  the  value  of  J(0)=0. 
Setting  J { 0 ) =constant  produces  a  DE  that  is  not  easily  solved. 


>  deqn1  :=collect{expand{J(x)/{Ds*K1*K2)),diff{c(x),x))=0: 


"  1  ' 

1 

deqnl  ;= 

c(x)  - 

—  c(x) 

^  K1  K2  ^ 

[^dx  ; 

>  soln1:=dsolve(deqn1,c(x)); 


c(x)  A 
K2  B1 


ln(c(jc))  A 

solnl  :=  c(x)  -  +  2  - 

K1  K2  Jx  K2  B1 


Cl 


Note  #2;  We  will  solve  the  above  equation  for  c(x)  and  use  this  to  define  a 
new  function  with  {x,  A,  K2,  and  _C1)  as  the  argument  variables. 


>  c:=(x,A,K2,C1)->solve(  c-(1/(K1*K2))*ln(c)+(2*A)/(K2*B1*x''(1/2))  =  C1,c); 


c  :=  (x,  A,  K2,  Cl)^  solve 


ln(c)  A 

c-  +2 - !==Cl,c 

K1 K2  K2BjJx  j 


>  c(x,A,K2,C1); 


f 

'  Kliljx  A  -  a  K2  BI  x)y\ 

W 

^-Kl  K2  e 

[  xBl  ] 

y 

K1  K2 

Note  #3a:  The  above  W()  function  is  the  "Lambert"  function  W(  ).  See  the 
Maple  help  discussion  of  this  function  for  further  details. 

Note  #3b:  The  expression  for  the  classical  stress  assisted  diffusion  (SAD) 

concentration  is  given  by  setting  taking  the  limit  of  c(x)  as  K2->0. 


>csad:=(x,A,C1)->limit(c(x,A,K2,C1),K2=0); 

csad (x.  A,  Cl)  ^  lim  c{x,A,K2,Cl) 

K2^Q 


>  csad(x,A,C1); 


KIA 
'  fxBI 


>  dcdx1:=simplify(diff(c(x,A,K2,C1),x)); 


dcdxl 


W 


-K1  K2  e 


K1 


A-CI  K2  B1  X 


xBI 


A 


f 

r 

'  KlilJxA-Cl  K2BI  x)C 

\ 

^1  +w 

\^-Kl  K2  e 

[  ] 

J. 

,  x'^'^  B1  K2 

A-3a-3 


>  diff(W(f(x)),x); 


>  int(W(x),x); 


W(f(x)) 


(d  1 

—  f(-^) 

y 


(1+W(f(x)))f(x) 


W(x)  X  -  x  + 


X 


>  x:=(c,A,K2,C1)->solve(c-(1/(KrK2))*ln(c)+(2*A)/(K2*B1*x''(1/2))  =  C1,x); 

f 


X  :=  ( c,  A,  K2,  Cl)  solve 


c  - 


W(x) 

Cl,) 

ln(c) 


+  2- 


>  x(c,A,K2,C1); 


K1  K2  K2  B1 

A^KP 


■  =  Cl,  X 


lx 


(cKl  K2B1-  ln(c)  B1  -  Cl  K1  K2  B1 ) 

>dxdc:=(c,A,K2,C1)->diff(x(c,A,K2,C1),c); 


dxdc  :=  {c.  A,  K2,  Cl )  diff(x(c,  A,  K2,  Cl),  c) 

>  factor(dxdc(c,A,K2,C1)); 

KP  (c  K1  K2  ~  1) 

8 - ^ ^ ^ 

BP  (-C  K1  K2  +  ln(c)  +  Cl  K1  K2)  c 

>  factor(1/dxdc{c,A,K2,C1)); 

1  BP  (-C  K1  K2  +  ln(c)  +  Cl  K1  K2f  c 
8  A^  KP  (c  K1  K2  -  1) 


Note  #4a:  (ix/dc->0  as  c->l/Kl*K2,  or  conversely,  dc/dx->inf inity  as 
c->l/Kl*K2!  This  is  apparently  a  critical  point  in  the 
mathematical  solution  for  the  concentration.  The  concentration 
becomes  multivalued  at  this  point. 

Note  #4b:  We  will  now  determine  the  value  of  the  constant  _C1  in  terms  of 
the  concentration  at  the  boundary  c(0.1)=cl. 


>  Cl  :=soIve(x(cl,A,K2,C1  )=0.1  ,C1 ); 

Cl  :=  -.500000000000000 

-2.  BP  cl  KP  K2^  +  2.  BP  Injcl)  K1  K2  +  12.6491 106406735  B1  KP  K2  A 

BP  KP  K2'^ 


.500000000000000 

-2.  BP  cl  KP  K2^  +  2.  BP  Injcl)  K1  K2  -  12.6491 106406735  B1  KP  K2  A 

BP  KP  K2^ 


>  Cl  a:=(cl,A,K2)->expand(-.500000000000000/B1  ^2/K1  ''2/K2''2*(-2.*B1  ''2*cl*K1  '^2*K2''2+2.*B1  ''2*ln(cl)*K1  *K2+1 2.6491 1 06 
406735*B1*K1''2*K2*A)); 


Cla  ■=  {cl.  A,  K2)  expand 


-.500000000000000 
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-2,  BP  cl  Kl^  K2^  +  2.  BP  Injcl)  K1  K2  +  12.6491 106406735  B1  Kl^  K2  A 

Bl^  KP  K2^  j 

>  Cl  b:=(cl,A,K2)->expand(  -.500000000000000/BI  ''2m  ''2/K2''2*(-2.*B1  ''2*cl*K1  ''2*K2''2+2.*B1  ''2*ln{cl)*K1*K2-1 2.6491 1 06 
406735*B1  *K1  ''2*K2*A)); 


r 


Clb  :=  ( cl.  A,  K2)  expand 


-.500000000000000 


V 


-2.  BP  cl  KP  K2^  +  2.  BP  Injcl)  K1  K2  -  12.6491 106406735  B1  KP  K2  A 

BP  KP  K2^ 


>C1a{cl,A,K2); 


ln(c0  A 

1.00000000000000  cl  -  1.00000000000000^— ^  -  6.32455532033675 


>C1b(cl,A,K2); 

1.00000000000000  cl  -  1.00000000000000 


K1  K2 

Injcl) 
K1  K2 


+  6.32455532033675 ■ 


B1  K2 

_A _ 

B1  K2 


Note  #5 :  The  quadratic  nature  of  the  solution  for  the  constant  _C1  yields 
two  solutions,  Cla  &  Clb,  each  of  which  results  in  a  different 
solution  for  x(c) . 


>xa:=(c,A,K2,cl)->x(c,A,K2,C1a(cl,A,K2)); 

xa  :=  (c,  A,  K2,  cl)  — >  x(c,  A,  K2,  Cla(c/,  A,K2)) 

>  xa(c,A,K2,cl); 

4.  A2  KP ! {c  K1  K2  B1  -  \.\n{c)  B1  -  1 .00000000000000  cl  K1  K2  B1 
-f-  1.00000000000000  ln(c/)  Bl  +  6.32455532033675  A  K1  f 

>  xb:=(c,A,K2,cl)->x(c,A,K2,C1b(cl,A,K2)); 


xb  ■=  (c,A,  K2,  cl)  — >  x(c,  A,  K2,  Clb(c/,  A,  K2)) 

>  xb(c,A,K2,cl); 

4.  A2  KPlicKl  K2B1  -1.  ln(c)  Bl  -  1.00000000000000  cl  K1  K2  Bl 
+  1.00000000000000  ln(c/)  Bl  -  6.32455532033675  A  K1  f 


Note  #6:  Next  we  will  define  the  constants,  and  simplify  the  two 

concentration  expressions  for  the  fully  coupled  theory  and 
classical  stress  assisted  diffusion  theory. 


>  K;={Em/(3*(1-2*nu))); 


>  lambda:=(Em*nu)/((1+nu)*(1-2*nu)); 


>  mu:=Em/(2*(1+nu)); 


Em 

K:= - 

3  -  6  V 


:i:= 


Em  V 

(l+v)(l-2v) 
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>  alpha:=(rho*Vs)/(3*MWs); 


>  K1;=(Vs*K)/(R*T); 


>  K2:=3*alpha*(1+traps); 


>  A1:=(1-2*nu); 


Em 

|l  := - 

2  +  2v 

1  p 

a  := - 

3  MWs 


K1  := 


Em 

(3-6v)RT 


...  9  Vs  (I  +  traps) 

KZ  !— 

MWs 


>  A2:=2*(1+nu)*alpha*(1+traps); 


>  A3:=A2*cO; 


>  B1:=3*K; 


>  B2:=9*K*alpha*(1+traps); 


>  B3:=B2*cO; 


>  Ds:=1e-9; 


>  Vs:=2.02e-6; 


>  ltraps:=19; 


>  htraps:=499; 


A7  :=  1  -  2v 


A2  := 


2(l+v)pVj'(l  +  traps) 
3  MWs 


2  (l+v)pV3'(l  +  traps )  cO 

3  MWs 


B1  3 - 

3  -  6  V 

Em  p  Vj'  ( 1  +  traps ) 
{3-6v)MWs 

Em  p  ( 1  +  traps)  cO 

B3  :=  3 

(3-6v)MWs 


Ds:^  A  10  * 
:=  .202  10-5 
Itraps  :=  19 
htraps  :=  499 
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>  c0:=0; 

c0:=0 

>  MWs:=0.001 00797; 

MWs  :=  .00100797 

>  Em:=200e9; 

Em  :=  .200  lO*^ 

>  nu:=0.3; 

v:=  .3 

>  rho:=7800; 

p  :=  7800 

>  T;=293; 

T  :=  293 

>  R:=8.31432; 

R:=  8.31432 

>K; 

.166666666666667  lO’^ 

>  lambda; 

.115384615384616  lO'^ 

>  mu; 

.769230769230769  10” 

>  alpha; 

5.21047253390476 

>  Rs:=R/IVIWs; 

Rs  :=  8248.57882675080 

>  K1; 

138.199274509089 

>  IK2:=3*alpha*(1+ltraps); 

IK2  312.628352034285 

>  hK2:=3*alpha*{1+htraps); 

hK2  ;=  7815.70880085714 

>  K1*IK2; 

43205.0114421103 

>  1/(K1*IK2); 

.0000231454631447068 

>  K1*hK2; 

.108012528605276  10"^ 

>  1/(KrhK2); 

.925818525788272  10'® 


>  A1; 
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>  A2; 

>  A3; 

>  B1; 

>  B2; 

>  B3; 


.4 

13.5472285881524  +  13.5472285881524  traps 

0 

.500000000000001  10'2 

.781570880085717  10‘3  +  .781570880085717  lO^^  traps 

0 


Note  #7;  Concentration  for  the  low  trapping  situation  (i.e.,  traps=19): 


>  traps:=19; 


>  IA2;=A2; 


>  IB2:=B2; 


>  xaI:=(c,A,K2,cl)->xa(c,A,K2,cl); 


traps  :=  19 

IA2  :=  270.944571763048 
IB2  :=  .156314176017143  lO'^ 


xal  :=  xa 


>  xal{c,A,K2,cl); 

.163705496009499  lO'^^  aV(c  -  .0000231454631447068  ln(c)  -  1.00000000000001  cl 
+  .0000231454631447068  ln(c/)  +  .404605358354904  lO'^M)^ 

>  xbl:=(c,A,K2,cl)->xb{c,A,K2,cl); 

xbl  ;=  xb 


>  xbl{c,A,K2,cl); 

.163705496009499  lO’^^  / {c  -  .0000231454631447068  ln(c)  -  1.00000000000001  cl 

+  .0000231454631447068  ln(c/)  -  .404605358354904  lO'^^ 


Note  #8:  Concentration  for  the  high  trapping  situation  (i.e.,  traps  =  499)  : 


>  traps:=499; 

traps  :=  499 

>  hA2:=A2; 


M2  :=  6773.61429407620 

>  hB2:=B2; 

hB2  :=  .390785440042860  lO^^^ 


>  xah:={c,A,K2,cl)->xa(c,A,K2,cl); 


xah  ;=  xa 
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>  xah(c,A,K2,cI); 

.261928793615197  IQ-^^A^/Cc  -  .925818525788271  10-6ln(c)-  1.00000000000001  cl 
+  .925818525788275  10'^  ln(c/)  +  .161842143341962  lO'^^A)^ 


>  xbh:={c,A,K2,cl)->xb{c,A,K2,cl); 


xbh  ;=  xb 


>  xbh(c,A,K2,cI); 

.261928793615197  IO'^^aVCc  -  .925818525788271  lO'®  ln(c)  -  1.00000000000001  cl 
+  .925818525788275  lO’^  ln(c/)  -  .161842143341962  lO'^^  A)^ 


Note  #9 :  Concentration  for  SAD 


>  csad(x,A,cl)->-1  .*ln(cl)+.551 6800588e-9*A/x''(1/2); 


>  Csad1{x,A,cl); 


>  with(plots); 


csad(x,  A,  cl)  -1.  ln(c/)  +  .5516800588  lO'®  -f- 


Csadl(x,  A,  cl) 


[animate,  animateSd,  conformal,  contourplot,  cylinderplot,  densityplot,  display,  displaySd, 
fieldplot,fieldplot3d,  gradplot,  gradplotSd,  implicitplot,  implicitplotSd,  loglogplot, 
logplot,  matrixplot,  odeplot,  pointplot,  polarplot,  polygonplot,  polygonplotSd, 
polyhedraplot,  replot,  setoptions,  setoptionsSd,  spacecurve,  sparsematrixplot, 
sphereplot,  surf  data,  textplot,  textplotSd,  tubeplot] 

> 

>  logplot({xal(c,15e6,IK2,1e-7), 

>  xbl(c,1 5e6,IK2,1  e-7)},c=1  e-7..1 .5e-7, 

>  title=‘xa  (upper)  &  xb  (lower)  -vs-  c  (Low  Trapping),  c(L)=1e-7‘); 

> 

xa  (upper)  &  xb  (lower)  -vs-  c  (Low  Trapping),  c(L)=1  e-7 


le-07  l.le-07  1.2e-07  1.3e-07  1.4e-07  1.5e-07 


>  logplot({xah(c,15e6,hK2,1e-7), 
>xbh(c,15e6,hK2,1e-7)},c=1e-7..1.5e-7, 
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Note  #11:  The  above  plots  show  that  the  Clb  parameter  is  clearly  correct 
for  c (L) =le-7 .  The  xa(c)  solution  predicts  a  singularity 
at  the  minimum  concentration  level  on  the  rod,  which  is  of  no 
physical  use.  We  must  now  determine,  however,  whether  the  xb{c) 
solution  is  valid  for  all  c  if  c(L)=le-7. 


>  logplot(xbl{c,15e6,IK2,1e-7), 

>  c=1e-7..2e-4,title=‘xb  -vs-  c  (Low  Trapping),  c(L)=1e-7‘); 


xb  -vs- c  (Low  Trapping),  c(L)=1e-7 


2e-05  4e-05  6e-05  8e-05  0,00010.00012). 000143.0001®, 000180. 0002 

c 


>  logplot(xbh{c,15e6,hK2,1e-7), 

>  c=1e-7..1e-5,title=‘xb  -vs-  c  (High  Trapping),  c(L)=1e-7‘); 
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Note  #12a;  THE  ABOVE  PLOTS  DO  NOT  HAVE  THE  SAME  CONCENTRATION  AXES.  While 
the  second  plot  appears  to  show  that  the  singularity  shifts 
toward  a  higher  concentration  level,  this  is  only  caused  by  a 
change  in  the  axis  scaling  —  the  singularity  shift  is  toward 
lower  concentration  levels. 


Note  #12b:  Both  xa(c)  &  xb(c)  become  multi-valued  at  some  critical  value  of  c 
which  is  dependent  on  the  level  of  trapping  present  in  the  model, 
but  independent  of  the  left-hand  concentration.  We  must  determine 

the  value  of  x  where  this  critical  value  of  concentration  occurs  as  x 

decreases  from  L=0.1  to  0.0. 

>  cbLcr:=solve(diff(xbl(c,1 5e6,IK2,cl),c)=0,c); 

cbl_cr  :=  .0000231454631447068 

>  xblmin:=xbl(cbl_cr,1 5e6,IK2,1  e-9); 

xblmin  ;=  .834723037961544  10'^ 

>  xblmin:=xbl(cbl_cr,15e6,IK2,1e-7); 

xblmin  :=  .343354181482430  lO'^ 

Note  #13:  The  limit  concentration  is  independent  of  c(L),  but  the  value  of 
x(c)  which  corresponds  to  this  limit  concentration  is  obviously 
highly  dependent  on  c{L).  We  now  examine  the  nature  of  this 
dependence . 

>  logplot(xbl(cbl_cr,15e6,IK2,cl),cl=1e-9..1e-5,title=‘xbmin  -vs-  c(L)  (Low  Trapping)'); 

> 
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xbmin  -vs-  c(L)  (Low  T rapping) 


>  cbh_cr:=solve(diff(xbh(c,1 5e6,hK2,cl),c)=0,c); 

cbh_cr  :=  .925818525788272  10  '^ 

>  xbhmin:=xbh(cbh_cr,15e6,hK2,1e-9); 

xbhmin  :=  .200363349240182  10-5 

>  xbhmin:=xbh(cbh_cr,15e6,hK2,1e-7); 

xbhmin  :=  .0000371878414183777 

>  logplot(xbh(cbh_cr,15e6,hK2,cl),cl=1e-9..1e-5,title=‘xbmin  -vs-  c(L)  (High  Trapping)'); 

> 

xbmin  -vs-  c(L)  (High  T rapping) 


Note  #14:  The  threshold  level  of  c(L}  at  which  xb{c)  is  no  longer  valid  and 
xa(c)  becomes  the  physically  meaningful  solution  may  also  be 
determined . 


>  solve(diff(xbh(cbh_cr,1 5e6,hK2,cl),cl)=0,cl); 

.925818525788271  lO'^ 

>  logplot(xbh(c,15e6,hK2,1e-6),c=1e-6..1.5e-6,titie=‘xb  -vs-  c  (High  Trapping)  c(L)=1e-6‘); 


A-3a-12 


xb  -vs- c  (High  Trapping)  c(L)=1e-6 


>  logplot{xah(c,15e6,hK2,1e-6),c=1e-6..1.5e-6,title=‘xa  -vs-  c  (High  Trapping),  c(L)=1e-6‘); 


xa  -vs- c  (High  Trapping),  c(L)=1e-6 


Note  #15a:  The  solution  is  divided,  then,  into  two  regimes.  The  first, with 
o (L) <c (L) critical,  requires  the  xb  solution,  while  the  second, 
with  c (L) >c (L) critical ,  reguries  the  xa  solution.  The  exact 
value  of  c(L) critical  is  dependent  on  the  level  of  trapping 
present  in  the  problem. 

Note  #15b:  To  directly  compare  the  concentration  predictions  generated  by 
variations  in  trapping  and  c(L),  we  define  new  concentration 
functions . 


>cb:=(x,A,K2,cl)->c(x,A,K2,C1b(cl,A,K2)); 

cb  :=  (x.  A,  K2,  cl)  c{x,A,  K2,  Clb(d,  A,  K2)) 

>  cb(x,A.lK2,cl); 

-.0000231454631447068  w( -43205.01 14421 103  e(-«2050ii442ii03  lo-^^ 

(.404605358354905  10'’ A  r  -  .231454631447069  10“  ln(cOJ:  + .100000000000000  lO^dr-  .127947448591013  10'^  Jx  a]  /  x 

>  K2:=’K2’; 

K2  :=  K2 

>  csad1  :=(x, A,cl)->csad(x, A,C1  b(cl, A,K2)); 

csadl  :=  (x,A,  cl)  ->csad(x,  A,  Clb(c/,  A,  K2)) 

>  simplify(expand(csad1  (x, A,cl))); 
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Note  #16:  The  above  plots  indicate  that  the  difference  between  SAD  and 
Fully  Coupled  hydrogen  concentration  is  strongly  dependent  on 
the  degree  of  trapping. 


logplot(cb{x,1 5e6,hK2,1  e-7)-csad1  (x,1 5e6,1  e-7),x=1  e-6..1  e-4, 
resolution=10000,title=‘[FC;cb  (H.T.)-SAD:c(x)]  -vs-  x  (close-up)‘) ; 


IFC:cb  (H.T.)-SAD:c(x)]  -vs-x  (close-up) 


logplot(cb(x,1 5e6,hK2,1  e-7)-csad1  (x,1 5e6,1  e-7),x=1e-6..1e-1 , 
resolution=10000,title=‘[FC;cb  (H.T.)-SAD:c(x)]  -vs-  x  (full-length)') ; 


[FC:cb  (H.T.)-SAD:c(x)J  -vs- x  (full-length) 


>  loglogplot([x,cb(x,15e6,hK2,1e-7)-csad1(x,15e6,1e-7),x=1e-6..1e-1], 

>  resolution=10000,title=‘log[FC:cb  (H.T.)-SAD:c(x)]  -vs-  log[x]‘); 


log[FC:cb  (H.T.)-SAD:c(x)]  -vs-  log[x] 


Note  #17a:  Calculate  the  stress,  strain  and  displacements: 

Note  #17b:  Stress  is  calculated  by  integration  of  the  body  force  with  the 
boundary  condition  that  the  right  end  of  the  rod  is  stress 
free . 


>  int(-A/x''(3/2),x); 


>  C2:=(x,A)->-(2*A)/x^(1/2); 


>  C2(0.1,15eG); 


2 


A 


A 

C2  :=(x,A)-^-2-j= 
-.948683298050514  10* 


>  Sx:=(x)->(2*1 5e6)/x''(1/2)+C2(0.1 ,1 5e6); 

Sx  .30  10*-t-i-C2(.l,  .15  10*) 

>  Sx(x); 
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Note  #18;  Strain  is  calculated  from  the  constitutive  relationship,  Eg. (4). 
Without  displacements  due  to  concentration,  strain  may  be 
calculated  from  the  standard  linear-elastic  constitutive 
relationship  for  comparison. 


>  p7:=logplot(e0(x),x=1e-6..0.01,title=‘SAD:  eO(x) -vs-  x‘): 

>  p7; 

> 
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>  p9:=loglogplot([x,e0(x),x=5e-5..0.09]): 

>  p9; 

>  p10:=loglogplot([x,eh(x),x=5e-5..0.09]): 

>  p10; 

>  display([p9,p10],  title=‘FC:e(x)  (H.T.)  &SAD:  eO(x)  -vs-  x‘); 


Note  #19 :  Axial  displacement  is  calculated  by  integrating  the 

strain-displacement  relation  Eq. (6)  over  the  length  of  the  rod. 


>  ux:=x->(1 5e6/Em)*(4*sqrt(x)-6.32456*x)+aIpha*500* 

>  int(c(x,1 5e6,hK2,C1  b(1  e-7,1 5e6,hK2)),x=0..’x’); 


ux : 


■=x^  AS  10^ 


4  sqrt(x)  -  6.32456  x 
Em 


+  500amt(c(x,  .15  lO\hK2,C\h(A  10^.15  10^  hK2)),x  =  0..  ’x’) 


>  ux(x); 


.000300000000000000  Jx  -  .000474342000000000  x  +  2605.23626695238 


.925818525788272  10 


-6 


7 


W' 


-.108012528605276  10'^  e 


-.200903303205813  10 


.808962789010000  10'*^  r  -  .4127337051323  10'^  Jx 


dx 
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APPENDIX  B:  User  Element  Subroutine 

This  Appendix  contains  a  copy  of  the  Fortran  user  element  subroutine  for  solving 
fully  coupled  deformation-diffusion  problems  in  one-dimension.  A  listing  of  the  subroutine  is 
given  first,  and  is  followed  by  an  annotated  listing. 

NOTE:  This  User  Element  Subroutine  is  used  with  ABAQUS  Standard,  Version  5.3.1,  and 
is  run  on  a  Sun  SPARC  10  workstation  with  the  following  software  configuration:  SUN  OS 
4.1:3;  FORTRAN  level  V2.0.1;  C  level  SC2.0.1  (libansi.a  ©  Sun  Microsystems,  Inc.);  X 
Windows  level  XI 1  Release  4. 

PIS CLAIMER:  This  ABAQUS  “user  element”  subroutine  is  provided  free  of  charge  as  a 
courtesy  to  the  technical  community.  The  authors  and  the  University  of  Notre  Dame  accept 
no  responsibility  for  any  decisions  based  upon  the  use  of  this  subroutine.  Each  user  is 
advised  that  the  subroutine  has  been  tested  against  a  limited  number  of  steady-state 
deformation-diffusion  problems,  and  has  been  found  to  give  accurate  answers  to  these 
particular  test  problems.  The  accuracy  of  this  subroutine  cannot  be  guaranteed  in  any 
particular  future  analysis. 


Developer  Contact: 

Dr.  James  P.  Thomas 
University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 

Phone:  (219)  631-9371 
Fax:  (219)  631-8341 
e-Mail;  James.P.Thomas.66@nd.edu 
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n  o 


ABAQUS  User  Element  Subroutine  for  Coupled  Deformation-Diffusion 
Problems;  Fortran  77  Code 


subroutine  UEL  ( RHS  ,  AMATRX ,  SVARS ,  ENERGY , NDOFEL, NRHS ,  NSVARS  ,  PROPS , 

1  NPROPS ,  COORDS ,  MCRD ,  NNODE ,  U ,  DU ,  V ,  A ,  JTYPE , TIME ,  DTIME ,KSTEP,KINC, 

2  JELEM ,  PARAMS  ,  NDLOAD ,  JDLTYP ,  ADLMAG ,  PREDEF ,  NPREDF ,  LFLAGS  , 

3  MLVARX ,  DDLMAG ,  MDLOAD ,  PNEWDT ) 

inc lude  ' ABA_PARAM . INC ' 

implicit  double  precision  (A-H,0-Z)  <=  input  from  included  program 

dimension  RHS (MLVARX, *) , AMATRX (NDOFEL.NDOFEL) , SVARS (NSVARS ) , 

1  ENERGY  ( 8  )  ,  PROPS  (  *  )  ,  COORDS  (MCRD,  NNODE)  , 

2  U{NDOFEL)  ,  DU  (MLVARX,  *  )  ,V(NDOFEL)  ,A(NDOFEL)  ,TIME(2)  , 

3  PARAMS  ( 3  )  ,  JDLTYP  ( MDLOAD ,  *  )  ,  ADLMAG  ( MDLOAD ,  * )  , 

4  DDLMAG  ( MDLOAD ,  * )  ,  PREDEF  ( NPREDF ,  NNODE ,  2 )  ,  LFLAGS  ( 4 ) 

double  precision  AREA, XNU, BULK, ALPHA, D, XKONl,  FUN, 

1  FNU(2)  ,F(2)  ,CREF,RH0,XMW,TEMP,RS,GW(2)  ,GR(2)  ,E,A1,A2,A3, 

2  B1,B2,B3,XJI(2) ,DJ(2) ,X(3) ,XGAUS(2) ,XKC(2,2)  ,XKU(3,3)  , 

3  XKUC{3,2) ,CAP(2,2) , El , E2 , DE, R (5) ,DEFF, TRAPS 

integer  KFLAG 

double  precision  XJAC, DETJ, G1 , G2 , DGl , DG2 , HI ,  H2  ,  H3  ,  DHl,  DH2  ,  DH3 
external  XJAC , DETJ , G1 , G2 , DGl , DG2 , HI , H2 , H3 , DHl , DH2 , DH3 


*****'**Vr***************************************************'*******il 

*  1-D,  3-NODE  ISOPARAMETRIC  DISPLACEMENT/2-N0DE  SUPERPARAMETRIC  * 

*  CONCENTRATION  USER  ELEMENT  FOR  MUTUALLY  COUPLED  * 

*  STATIC /TRANSIENT  STRESS-ASSISTED  DIFFUSION  PROBLEMS  * 

*  (CONSTANT  CROSS-SECTIONAL  AREA)  * 


C 

c 

* 

* 

/ 

/ 

Node : 

1 

2 

3 

c 

★ 

/ 

POS  : 

xl- 

- L/2 - x2 - L/2-- 

---x3 

c 

•k 

/ 

Cone  : 

cl 

c2 

c 

* 

/ 

Disp : 

ul 

u2 

u3 

>  X,  u 


SVARS ( 1 ) = 
SVARS ( 2 ) = 
SVARS ( 3 ) = 
SVARS { 4 ) = 
SVARS ( 5 ) = 
SVARS ( 6 ) = 
SVARS { 7 ) = 
SVARS ( 8 ) = 
SVARS ( 9 ) = 


SOLUTION  DEPENDENT  STATE  VARIABLES 
DILATATIONAL  STRAIN  AT  INTEGRATION  POINT  GR 
DILATATIONAL  STRAIN  AT  INTEGRATION  POINT  GR 
AXIAL  STRESS  AT  INTEGRATION  POINT  GR(1) 
AXIAL  STRESS  AT  INTEGRATION  POINT  GR(2) 
AXIAL  STRESS  AT  LEFT  END  OF  ELEMENT 
AXIAL  STRESS  AT  RIGHT  END  OF  ELEMENT 
MASS  FLUX  AT  THE  CENTER  OF  EACH  ELEMENT 
X  LOCATION  OF  INTEGRATION  POINT  GR(1) 

X  LOCATION  OF  INTEGRATION  POINT  GR(2) 


(1)  [11 
(2)  [1] 
[Pa] 


(Pa 

[Pa] 

[Pa 

[Pa 

[m/s 

[m 

[m 


1  * 


BASED  ON  THEORY  AND  EQUATIONS  BY  DR.  JAMES  P.  THOMAS 
CODED  BY  CHARLES  E.  P.  CHOPIN,  25  AUGUST  1994 
LAST  MODIFIED  BY  CHARLES  E.  P.  CHOPIN,  13  MARCH  1995 
DEPARTMENT  OF  AEROSPACE  AND  MECHANICAL  ENGINEERING 
UNIVERSITY  OF  NOTRE  DAME,  NOTRE  DAME,  INDIANA 

DIRECT  INQUIRIES  REGARDING  THIS  USER  ELEMENT 
SUBROUTINE  TO; 

James . P . Thomas . 66@nd . edu 


■*•**■***★***★**•* 


t************************************-******-******-* 


DEGREES  OF  FREEDOM  FOR  MODEL  IN  ORDER: 
{C1,U1,U2,C2,U3} ■ 


U 

KFLAG  ^ 
AREA 


NODAL  MASS  FRACTION  CONCENTRATION  OF 

SOLUTE  [kgSOLUTE/kgSOLID] 
NODAL  DISPLACEMENT  [m] 
CASE  FLAG  FOR  PLANE  STRESS  OR  PLANE  STRAIN  [1] 
CROSS-SECTIONAL  AREA  OF  THE  ROD  [m^2] 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


E 

XNU 

D 

ALPHA 

CREF 

RHO 

XMW 

TEMP 

TRAPS 


YOUNG'S  MODULUS  FOR  THE  SOLID  [Pa] 
POISSON'S  RATIO  FOR  THE  SOLID  [1] 
DIFFUSION  COEFFICIENT  FOR  SOLUTE  IN  SOLID  [in-'2/s] 
SOLUTE  EXPANSION  COEFFICIENT  [1] 
=  (1/3  )  *  (RHO*  (PARTIAL  MOLAR  VOLUME  OF  SOLUTE)  )  /XMW 
REFERENCE  CONCENTRATION  [kgSOLUTE/kgSOLID] 
DENSITY  OF  SOLID  MIXTURE  [kg/m^3] 
MOLECULAR  WEIGHT  FOR  SOLUTE  SPECIES  [kg/mol] 
AMBIENT  TEMPERATURE  (ASSUMED  CONSTANT)  [K] 
TRAP  SITES  CONSTANT  (CSRKR  IN  (1+CSRKR)  TERM)  [1] 


KFLAG  =int (PROPS (1) ) 
AREA  =PROPS(2) 

E  =PROPS(3) 

XNU  =PROPS(4) 

D  =PROPS(5) 

ALPHA  =PROPS ( 6 ) 

CREF  =PROPS(7) 

RHO  =PROPS(8) 

XMW  =PROPS(9) 

TEMP  =PROPS(10) 
TRAPS  =PROPS(ll) 


2 -POINT  GAUSSIAN  INTEGRATION  LOCATIONS  AND  WEIGHTS 

data  GR/-0 . 5773502 69189626D0, 0.577350269189626D0/, 

1  GW/  1.000000000000000DO,1.000000000000000DO/ 


RS 

BULK 

XKONl 


DEFF 


GAS  CONSTANT  FOR  SOLUTE  SPECIES 
BULK  MODULUS  FOR  THE  SOLID 

NON-DIMENSIONAL  COEFFICIENT  FOR  (C*DE/DX)  TERM  OF 
MASS  FLUX  EQUATION 

(J=-DEFF*DC/DX  +  DEFF*XKONl*C*DE/DX) 

EFFECTIVE  DIFFUSION  COEFFICIENT 


RS  =  8.31432D0/XMW 

BULK  =  E/(3.ODO*(1.0DO-2.ODO*XNU)) 

XKONl  =  3 .0D0*BULK*ALPHA/ (RHO*RS*TEMP) 

DEFF  =  D/ (l.ODO+TRAPS  ) 


SET  CONSTANTS  FOR  PLANE  STRESS  OR  PLANE  STRAIN  CASE 

1=>  PLANE  STRESS,  FULLY  COUPLED 

2=>  PLANE  STRAIN,  FULLY  COUPLED 

3=>  PLANE  STRESS,  WEAKLY  COUPLED 

4=>  PLANE  STRAIN,  WEAKLY  COUPLED 

if (KFLAG . eq. 1)  then 

Al=(1.0D0-2.0DO*XNU) 

A2  =  (2  .ODO*  (1.  ODO+XNU)  ‘ALPHA)  »  ( 1 .  ODO+TRAPS) 

A3= (A2*CREF) 

Bl= (3 . 0D0*BULK) 

B2= (9 . 0D0*BULK*ALPHA) * ( 1 . ODO+TRAPS) 

B3= (B2*CREF) 
elseif (KFLAG . eq. 2 )  then 
A1=1.0DO 
A2=0.0D0 
A3=0 . ODO 

Bl=  (1  .ODO-XNU)  *E/  (  (1.  ODO+XNU)  *  (1.  ODO -2 . 0D0*XNU)  ) 
B2  = { 3 . ODO  *BULK*ALPHA) * ( 1 . ODO+TRAPS ) 

B3= (B2*CREF) 
elseif (KFLAG . eq. 3 )  then 

A1=(1.0D0-2.0D0*XNU) 

A2=0.0D0 

A3=0.0D0 

B1=(3.0D0*BULK) 

B2=0.0D0 

B3=0.0D0 

elseif (KFLAG . eq. 4 )  then 
A1=1.0D0 
A2=0.0D0 
A3 =0. ODO 

Bl=  (1.  ODO-XNU)  *E/  (  (1.  ODO+XNU)  *  ( 1 .  ODO-2  .  ODO*XNU)  ) 

B2=0.0D0 

B3=0.0D0 
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ooo  ooooon  ooo  oooo  ooo  non 


endif 


SET  X  COORDINATES  FOR  NODES  ON  CURRENT  ELEMENT 

X(1)=C00RDS(1,1)+U(2) 

X{2)=COORDS(l,2)+U(3) 

X(3)=COORDS(l,3)+U(5) 

SET  GLOBAL  COORDINATES  FOR  GAUSS  POINTS  ON  CURRENT  ELEMENT 

XGAUS(1)=H1(GR(1) ) *X(1)+H2 (GR(1) ) *X(2)+H3 (GR(1) ) *X(3) 
XGAUS(2)=H1 (GR(2) ) *X ( 1 ) +H2 (GR (2 ) ) *X (2 ) +H3 (GR (2 ) ) *X(3) 

CALCULATE  INVERSE  JACOBIAN  AND  DETERMINANT  FOR  ISOPARAMETRIC 
TRANSFORMATION 


XJI (I) =1.0D0/XJAC(GR(I) ,X(1),X(2),X(3)) 
DJ(I) =DETJ(GR(I) ,X{1),X(2),X(3)) 

20  continue 


if (LFLAGS(l) .ne. 71) then 


CALCULATE  CAPACITANCE  MATRIX 


CAP (1,1) 

1 


=  AREA*  (GKGRd)  )*G1(GR(1)  )  ‘DJd)  *GW(1) 
+  G1 {GR(2) ) *G1(GR(2) )*DJ(2) *GW(2) ) 


CAP (1,2) 

1 


=  AREA*  (GKGRd)  )*G2(GR(1)  )*DJ(l)*GWd) 
+  G1 (GR(2) ) *G2 (GR{2) )*DJ(2) *GW(2) ) 


CAP  (2,1) 

1 


=  AREA*  (G2  (GRd)  )  *G1(GR(1)  )  *DJd)  *GWd) 
+  G2 (GR(2) )*G1 (GR{2) ) *DJ(2) *GW(2) ) 


CAP  (2, 2)  =  AREA*  {G2  (GRd)  )  *G2  (GRd)  )  *DJ(1)  *GWd) 

1  +  G2 (GR(2) ) *G2 (GR(2) ) *DJ(2) *GW(2) ) 

endif 


CALCULATE  STIFFNESS  MATRICES 


CALCULATE  de/dr  FROM  PREVIOUS  TIME  STEP  FOR  NON-LINEAR  TERM 


E1=SVARS (1) 

E2=SVARS (2) 

DE  =  (E2-E1)  /  (GR(2) -GRd)  ) 


COEFFICIENTS  OF  CONCENTRATION  D.O.F.  IN  MASS  BALANCE  EQUATION 


XKC  (1,1) 

1 

2 

3 


AREA*DEFF*  (XJI  (1)  *  (DGKGRd)  )  *DG1  (GR(1)  ) 
-XK0N1*DG1  (GRd)  )  *DE*G1  (GR(1)  )  )  *GW(1) 
+XJI (2) * (DGl (GR(2) ) *DG1 (GR{2) ) 
-XK0N1*DG1  (GR(2)  )  *DE*G1  (GR(2)  )  )  *GW(2)  ) 


XKC (1,2) 

1 

2 

3 


AREA*DEFF*  (XJI  (1)  *  (DGl  (GRd)  )  *DG2  (GR(1)  ) 
-XK0N1*DG1  (GRd)  )  *DE*G2  (GR(1)  )  )  *GW(1) 

+  XJI (2) * (DGl (GR(2) ) *DG2 (GR(2) ) 
-XK0N1*DG1  (GR(2)  )  *DE*G2  (GR(2)  )  )  *GW(2)  ) 


XKC (2,1) 

1 

2 

3 


AREA*DEFF* (XJI (1) * (DG2 (GR(l) ) *DG1 (GR(1) ) 
-XKONl*DG2  (GRd)  )  *DE*G1  (GR(1)  )  )  *GW(1) 

+  XJI (2) * (DG2 (GR(2) ) *DG1 (GR{2) ) 
-XK0N1*DG2  (GR(2)  )  *DE*G1  (GR(2)  )  )  *GW{2)  ) 


XKC (2, 2) 

1 
2 
3 
C 
C 

C  COEFFICIENTS  OF  CONCENTRATION  IN  LINEAR  MOMENTUM  BALANCE  EQUATION 

C 

XKUC(1,1)  =  AREA*  (B1*A2-B2)  *  (  (DHKGRd)  )  *G1  (GR(l)  )  )  *GW(1) 

1  +  (DHl (GR(2) ) *G1 (GR(2) ) ) *GW(2) ) 


=  AREA*DEFF*  (XJId)  *  (DG2  (GR(l)  )  *DG2  (GR(1)  ) 
-XKONl*DG2  (GRd)  )  *DE*G2  (GRd)  )  )  *GW(1) 

+  XJI (2) * (DG2 (GR{2) ) *DG2 (GR(2) ) 
-XKONl*DG2  (GR{2)  )  *DE*G2  (GR(2)  )  )  *GW(2)  ) 
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XKUC(1,2)  =  AREA*  (B1*A2-B2)  *  (  (DHKGRd)  )  *G2  (GR(1)  )  )  *GW(1) 
1  +  (DH1{GR(2))*G2(GR(2)))*GW(2)) 


XKUC{2,1)  =  AREA*{B1*A2-B2)*((DH2(GR(1))*G1{GR{1)))*GW{1) 
1  +  (DH2 (GR(2) ) *G1 (GR(2) ) ) *GW(2) ) 


XKUC{2,2)  =  AREA*  (B1*A2-B2)  *  (  (DH2  (GR(1)  )  *G2  (GR(1)  )  )  *GW(1) 
1  +  {DH2(GR(2))*G2(GR(2)))*GW{2)) 


XKUC(3,1)  =  AREA*  (B1*A2-B2)  *  {  {DH3  (GR(1)  )  *G1(GR(1)  )  )  *GW(1) 
1  +  (DH3 (GR(2) ) *G1(GR(2) ) ) *GW(2) ) 


XKUC(3,2)  =  AREA*(B1*A2-B2)*((DH3(GR{1))*G2(GR(1)))*GW(1) 

'  1  +  {DH3(GR(2))*G2(GR(2)))*GW(2)) 

C 

C 

C  COEFFICIENTS  OF  DISPLACEMENT  IN  LINEAR  MOMENTUM  BALANCE  EQUATION 

C 

XKU(1,1)  =  AREA*B1*A1*(XJI(1)*(DH1(GR(1))*DH1(GR(1)  )  )*GW(1) 

1  +  XJI{2) * (DH1{GR(2) )*DH1(GR(2) ) )*GW(2) ) 


XKU(1,2)  =  AREA*B1*A1*(XJI(1)*(DH1(GR(1))*DH2(GR{1)))*GW(1) 

1  +  XJI(2)*(DH1(GR(2))*DH2(GR(2)))*GW(2)) 


XKU(1,3)  =  AREA*B1*A1*(XJI(1)*(DH1(GR(1))*DH3(GR(1)))*GW(1) 

1  +  XJI(2)  *  (DH1(GR(2)  )*DH3  (GR(2)  )  )  *GW(2)  ) 


XKU(2,1)  =  AREA*B1*A1*(XJI{1)*(DH2{GR{1))*DH1(GR(1)))*GW(1) 

1  +  XJI (2) * (DH2 (GR(2) ) *DH1 (GR(2) ) ) *GW(2) ) 

XKU(2,2)  =  AREA*B1*A1*  {XJKD  *  (DH2  (GR(1)  )  *DH2  (GR(1)  )  )  *GW(1) 

1  +  XJI (2) * {DH2 (GR(2) ) *DH2 (GR(2) ) ) *GW(2) ) 


XKU(2,3)  =  AREA*B1*A1*  (XJI  (1)  *  (DH2  (GR(1)  )  *DH3  (GR(1)  )  )  *GW(1) 

1  +  XJI(2) *{DH2 {GR(2) ) *DH3 (GR(2) ) ) *GW(2) ) 


XKU{3,1)  =  AREA*B1*A1*  (XJKD  *(DH3{GR(1)  )  *DH1(GR(1)  )  )  *GW(1) 

1  +  XJI(2) *(DH3 {GR(2) ) *DH1(GR(2) ) ) *GW(2) ) 


XKU(3,2)  =  AREA*B1*A1‘ (XJKD  *  (DH3  (GR(1)  )  *DH2  (GR(1)  )  )  *GW(1) 

1  +  XJK2)  *  (DH3  (GR(2)  )  *DH2(GR(2)  )  )  *GW(2)  ) 


XKU(3,3)  =  AREA*B1*A1*  (XJKD  *  (DH3  (GR(D  )  *DH3  (GR(D  )  )  *GW(D 

1  +  XJI(2) * (DH3 (GR(2) ) *DH3 (GR(2) ) ) *GW(2) ) 


if  (LFLAGSd)  .eq.7D  then 

******************************** 

*************  STEADY  STATE  DIFFUSION  ******************* 
******************************** 


C 

C 

C 

c 

C 

C 

c 

C 


if  (LFLAGSd)  .eq.l. or. LFLAGS(3) -eq. 2)  then 

«««  CALCULATE  AMATRX  =  [K]  »»»»»» 

WHERE  [K]  IS 

[XKCd,D  0  0  XKCd,2)  0  ] 

[XKUC(1,D  XKUd,D  XKUd,2)  XKUC(1,2)  XKU(1,3)] 
[XKUC(2,D  XKU(2,D  XKU(2,2)  XKUC(2,2)  XKU(2,3)] 
[XKC(2,1)  0  0  XKC(2,2)  0  ] 

[XKUC(3,D  XKU(3,1)  XKU(3,2)  XKUC(3,2)  XKU(3,3)1 


AMATRX (1,1) 
AMATRX  (1,4) 
AMATRX  (2,1) 
AMATRX  (2,2) 
AMATRX  (2,3) 
AMATRX (2,4) 
AMATRX  (2,5) 
AMATRX  (3,1) 
AMATRX (3,2) 
AMATRX (3,3) 
AMATRX  (3,4) 
AMATRX (3 , 5) 
AMATRX (4,1) 


=  XKCd,  1) 

=  XKCd,  2) 

=  XKUC  (1, 1) 
=  XKU (1,1) 

=  XKU (1,2) 

=  XKUC (1,2) 
=  XKU (1,3) 

=  XKUC  (2 , 1) 
=  XKU (2,1) 

=  XKU (2,2) 

=  XKUC (2, 2) 
=  XKU (2, 3) 

=  XKC (2,1) 
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AMATRX (4,4) 
AMATRX  (5,1) 
AMATRX (5,2) 
AMATRX (5,3) 
AMATRX  (5,4) 
AMATRX (5,5) 


=  XKC(2,2) 

=  XKUC(3,1) 
=  XKU (3,1) 

=  XKU (3, 2) 

=  XKUC(3,2) 
=  XKU (3, 3) 


endif 

C 

if ( (LFLAGS (3) .eq.l) .or . (LFLAGS(3) .eq.5) )  then 
C 
C 

C  «««  CALCULATE  {RHS}  =  {R}-[K){U}  »»»»»» 

C  ’  NB:  THIS  USER  ELEMENT  ASSUMES  THAT  ALL  OF  THE 
C  NEUMANN  BOUNDARY  DATA  ARE  HOMOGENEOUS  (i.e.,  ZERO)  . 

C  INHOMOGENEOUS  (NON-ZERO)  NEUMANN  BOUNDARY  DATA  SUCH 

C  AS  NON- ZERO  BOUNDARY  TRACTIONS  AND/OR  SOLUTE  FLUXES 

C  ARE  AUTOMATICALLY  INCORPORATED  INTO  THE  COMPUTATIONS 

C  BY  ABAQUS.  INHOMOGENEOUS  DATA  SHOULD  BE  ENTERED  IN 

C  THE  INPUT  DECK  AS  CONCENTRATED  NODAL  FORCES. 

C 

C  THE  FOLLOWING  SECTION  CALCULATES  THE  TOTAL  USER  SPECIFIED 

C  DISTRIBUTED  LOADS  (e.g.  BODY  FORCES)  AT  THE  GAUSS  POINTS 

C  ON  THE  ROD  FOR  USE  IN  FINDING  THE  RHS  VECTOR. 

C 

FUN=O.ODO 
do  31  1=1,2 

F(I)  =  O.ODO 
FNU(I)  =  O.ODO 
31  continue 

do  41  Kl=l,MDLOAD 

if (JDLTYP(K1,1) .gt.0)then 
FUN=FUN+ADLMAG (K1 , 1 ) 
elseif (JDLTYP(K1,1) .lt.0)then 

call  KFCALC (JDLTYP(K1, 1) , F, XGAUS , TIME (2 ) ) 
do  51  1=1,2 

FNU(I) =FNU(I) +F{I) 

51  continue 

endif 

41  continue 

do  61  1=1,2 

FNU  ( I )  =FNU  ( I )  +FUN 
61  continue 


C 


C 


C 

C 


C 

C 


C 


C 

C 


R(l)  =  O.ODO 

R(2)=  AREA* ( (HI (GR(1) ) *FNU(1) 

1  - (B3-B1*A3) *XJI(1) *DH1 (GR(1) ) ) *DJ(1)  *GW(1) 

2  +(H1  (GR(2)  )  *FNU(2) 

3  - {B3-B1*A3) *XJI (2) *DH1 (GR(2) ) ) *DJ(2) »GW(2) ) 

R{3)=  AREA* ( (H2 (GR(1) ) *FNU(1) 

1  - (B3-B1*A3) *XJI (1) *DH2 (GR(1) ) ) *DJ(1) *GW(1) 

2  + (H2 (GR(2) ) *FNU(2) 

3  - (B3-B1*A3) *XJI (2) *DH2 (GR(2) ) ) *DJ{2) *GW(2) ) 

R(4)  =  O.ODO 

R(5)=  AREA* ( (H3 (GR(1) ) *FNU(1) 

1  - (B3-B1*A3) *XJI (1) *DH3 (GR(1) ) ) *DJ(1) *GW(1) 

2  + (H3 (GR(2) ) *FNU(2) 

3  - (B3-B1*A3) *XJI (2) *DH3 (GR(2) ) ) *DJ(2) *GW{2) ) 


RHS 

(1,1) 

=  R(l) 

-XKC(1, 

D* 

U{1)- 

XKC (1,2 

)  * 

U(4) 

RHS 

(2,1) 

=  R(2) 

-XKUC ( 1 

,1) 

*U(1) 

-XKUd, 

1) 

*U(2) 

-XKU  ( 1 , 

,2) 

*U(3) 

-XKUC ( 1 

,2) 

*U(4) 

-XKU ( 1 , 

3) 

*U(5) 

RHS 

(3,1) 

=  R(3) 

-XKUC (2 

,1) 

*U(1) 

-XKU (2, 

1) 

*U(2) 

-XKU ( 2 , 

.2) 

*U(3) 

-XKUC (2 

,2) 

*U(4) 

-XKU (2, 

3) 

*U(5) 

RHS 

(4,1) 

=  R(4) 

-XKC(2, 

1)  * 

U(l)- 

XKC (2, 2 

)  * 

U(4) 

RHS 

(5,1) 

=  R(5) 

-XKUC ( 3 

,1) 

*U{1) 

-XKU ( 3 , 

1) 

*U(2) 

-XKU ( 3 , 

2) 

*U(3) 
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1  -XKUC(3,2) *U(4)-XKU(3,3)*U(5) 

C 

c 

endif 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


elseif ( (LFLAGS (1) . eq. 72 ) .or. (LFLAGS (1) .eq. 73) )  then 

*************-****************** 

*************  transzEjNT  diffusion  ******************* 
******************************* 


if  (LFLAGS (3) .eq.l.or.LFLAGS(3) .eq.2)  then 


«««  CALCULATE  AMATRX  =  [  [K]  +  [C] /DTIME] 

WHERE  [K]  IS 

[XKC{1,1)  0  0  XKC(1,2)  0  ] 

[XKUC{1,1)  XKU(1,1)  XKU(1,2)  XKUC(1,2)  XKU(1,3)] 
[XKUC(2,1)  XKU(2,1)  XKU(2,2)  XKUC(2,2)  XKU(2,3)] 
[XKC(2,1)  0  0  XKC(2,2)  0  ] 

[XKUC(3,1)  XKU(3,1)  XKU(3,2)  XKUC(3,2)  XKU(3,3)] 


AND  [C]  IS 

[CAP{1,1)  0 
[0  0 
[0  0 
[CAP(2,1)  0 
[0  0 


0  CAP (1,2)  0 ] 

0  0  0] 

0  0  0] 

0  CAP(2,2)  0] 

0  0  0] 


AMATRX (1,1) 
AMATRX (1,4) 
AMATRX (2,1) 
AMATRX (2,2) 
AMATRX (2,3) 
AMATRX (2,4) 
AMATRX  (2,5) 
AMATRX (3,1) 
AMATRX  (3,2) 
AMATRX (3,3) 
AMATRX  (3,4) 
AMATRX (3,5) 
AMATRX(4, 1) 
AMATRX (4,4) 
AMATRX (5,1) 
AMATRX (5,2) 
AMATRX (5,3) 
AMATRX (5,4) 
AMATRX (5,5) 


XKC (1,1)  + 
XKC (1,2)  + 
XKUCd,  1) 
XKU (1,1) 
XKU (1,2) 
XKUC (1,2) 
XKU (1,3) 
XKUC (2,1) 
XKU (2,1) 
XKU (2,2) 
XKUC (2,2) 
XKU (2, 3) 
XKC (2,1)  + 
XKC (2,2)  + 
XKUC (3,1) 
XKU (3,1) 
XKU (3,2) 
XKUC (3,2) 
XKU (3,3) 


CAP(1, 1) /DTIME 
CAP (1, 2) /DTIME 


CAP (2,1) /DTIME 
CAP(2,2) /DTIME 


endif 


I 


if ( (LFLAGS (3 ) . eq. 1) .or. (LFLAGS (3 ) .eq. 5) )  then 
C 

C  «««  CALCULATE  (RHS)  =  (R)  -  [K]  {U} -(  [C] /DTIME)  {DU}»»>: 

C 

C  THE  FOLLOWING  SECTION  CALCULATES  THE  TOTAL  USER  SPECIFIED 

C  DISTRIBUTED  LOADS  (e.g.  BODY  FORCES)  AT  THE  GAUSS  POINTS 

C  ON  THE  ROD  FOR  USE  IN  FINDING  THE  RHS  VECTOR. 

C 

FUN=0 . ODO 
do  131  1=1,2 
F(I)  =  O.ODO 
FNU(I)  =  O.ODO 
131  continue 

do  141  Kl=l,MDLOAD 

if (JDLTYP(K1,  1)  .gt.O) then 
FUN=FUN+ADLMAG (K1 , 1 ) 
elseif (JDLTYP(K1, 1) .It .0) then 

call  KFCALC(JDLTYP(K1,1) , F, XGAUS, TIME (2 ) ) 
do  151  1=1,2 

FNU ( I ) =FNU ( I ) +F ( I ) 

151  continue 

endi  f 
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141 


continue 
do  161  1=1,2 

FNU  ( I )  =FNU  ( I ) +FUN 
161  continue 
C 
C 
C 

R(l)  =  O.ODO 
C 

R(2)=  AREA* { (HI (GR(1) ) *FNU(1) 

1  - (B3-B1*A3) *XJI (1) *DH1(GR(1) ) ) *DJ(1)  *GW(1) 

2  + (HI (GR{2) ) *FNU(2) 

■  3  - (B3-B1*A3) *XJI (2) *DH1 (GR(2) ) ) *DJ(2) *GW(2) ) 

C 

R(3)=  AREA*  (  (H2  (GRd)  )  *FNU(1) 

1  -  (B3-B1*A3)  *XJI  (1)  *DH2  (GR(1)  )  )  *DJ(1)  *0114(1) 

2  +{H2 (GR(2) ) *FNU{2) 

3  - (B3-B1*A3) *XJI (2) *DH2 (GR(2) ) ) *DJ(2) *GW(2) ) 
C 

R{4)  =  O.ODO 
C 

R(5)=  AREA* ( (H3 (GR(l) ) *FNU(1) 

1  - (B3-Bl*A3) *XJI (1) *DH3 (GR(1) ) ) *DJ(1)  *GW(1) 

2  +(H3 (GR(2) ) *FNU{2) 

3  - (B3-B1*A3) *XJI{2) *DH3 {GR(2) ) ) *DJ (2 ) *GW(2 ) ) 


I 

I 

1 

1 

I 


RHS{1, 1)  =  R(l) 

RHS(2,1)  =  R{2) 

RHS(3,  1)  =  R(3) 

RHS (4, 1)  =  R(4) 

RHS (5,1)  =  R ( 5 ) 


-XKC { 1 , 1 ) *U ( 1) -XKC { 1 , 2 ) *U (4 ) 

-1.0D0/DTIME*{CAP(1,1)*DU(1,1)+CAP(1,2) *DU(4, 1) ) 

-XKUCd,  1)  *Ud)-XKU(l,  1)  *U(2)  -XKU(1,2)  *U(3) 
-XKOCd,  2)  *U(4)  -XKUd,  3)  *U(5) 

-XKUC{2,1) *U(1) -XKU(2,1) *U(2) -XKU(2,2) *U(3) 
-XKUC(2, 2) *U(4) -XKU(2, 3) *U(5) 

-XKC (2,1) *U(1) -XKC(2,2) *U(4) 

-l.ODO/DTIME* (CAP (2, 1) *DU(1, 1) +CAP (2 , 2 ) *DU ( 4 , 1 ) ) 

-XKUCd,  1)  *U(1)-XKU(3, 1)  *U(2)  -XKU(3,2)  *U(3) 
-XKUC(3,2) *U(4) -XKU(3,3) *U(5) 


endif 


<<<<<<  CHECK  THAT  PROCEDURE  FLAG  SENT  MATCHES  PROCEDURE  PERFORMED  »> 

el seif ( (LFLAGS (1) .ne . 71) . and. 

1  (LFLAGSd)  .ne.72)  .and.  (LFLAGSd)  .ne.73)  )  ttien 
write(*,*)  'ERROR  IN  THE  VALUE  OP  LFLAGSd)  =  ', LFLAGSd) 
endif 
C 

if (LFLAGS(3) .eq.l)  then 
C 

C  <«««««  CALCULATE  STRESSES  AND  STRAINS  AT  THE  GAUSS  POINTS  »> 

C 

C  DILATATIONAL  STRAINS; 

SVARS(l)  =  A1*XJI (1) * (DHl (GR(1) )  *U(2) 

1  +DH2 (GR(l) ) *U(3)+DH3 (GR(1) ) *U(5) ) 

2  +A2* (G1 (GR(1) ) *U(1)+G2 (GR(l) ) *U(4) ) -A3 
SVARS(2)  =  A1*XJI (2) * (DHl (GR(2) )  *U(2) + 

1  DH2 (GR(2) ) *U(3) +DH3 (GR (2 ) ) *U ( 5 ) ) 

2  +A2* (G1(GR(2) ) *U(1)+G2(GR(2) ) *U(4) ) -A3 


C  GAUSS  POINT  STRESSES; 

SVARSd)  =  B1*SVARS(1) -B2*  (G1  (GR(1)  )  *U(1) +G2  (GR(l)  )  *U(4)  ) +B3 
SVARS{4)  =  B1*SVARS(2) -B2* (G1(GR(2) ) *U(1) +G2 (GR(2) ) *U(4) ) +B3 

C  OUTER  NODE  STRESSES; 

DE  =  (SVARS (2) -SVARS (1) ) / (GR(2) -GR(l) ) 

SVARS(5)  =  Bl* (SVARS (1) + (-l.ODO-GR(l) ) *DE) -B2*U(1) +B3 
SVARS(6)  =  Bl*(SVARS(2)+(  1 . ODO-GR (2 ) ) *DE) -B2*U (4 ) +B3 

C  CENTROIDAL  SOLUTE  MASS  FLUX 

SVARS  (7)  =D*  (1. 0D0/XJAC(0.0D0,X(1)  ,X(2),X(3))) 
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1  *(-(DGl(0.0D0)*U(l)+DG2(0.0D0)*U(4))  + 

2  XKONl* (G1 (O.ODO) *U(1)+G2 (O.ODO) *U(4) ) *DE) 

C  GLOBAL  GAUSS  POINTS  LOCATIONS 

SVARS ( 8 ) =XGAUS ( I ) 

SVARSO)  =XGAUS(2) 


endif 

return 

end 


double  precision  function  XJAC(R,X1,X2,X3) 
double  precision  R,X1,X2,X3 

CALCULATE  JACOBIAN  OF  ISOPARAMETRIC  TRANSFORMATION 
(D/DR=XJAC''  (-1)  *D/DX) 

XJAC=  (R-l.ODO/2  .ODO)  *Xl-2 . 0D0*R*X2+ (R+1 .  ODO/2  .  ODO )  *X3 

return 

end 


double  precision  function  DETJ(R,X1,X2,X3) 
double  precision  R,X1,X2,X3 

CALCULATE  DETERMINANT  OF  JACOBIAN  OF  ISOPARAMETRIC  TRANSFORMATION 
(DR=DETJ*DX) 

DETJ= (R-l.ODO/2 .ODO! *Xl-2 .0D0*R*X2+(R+1.0D0/2 .ODO) *X3 
return 
end 


LINEAR  INTERPOLATION  FUNCTIONS  FOR  CONCENTRATION 

double  precision  function  Gl(R) 
double  precision  R 

G1={1.0D0/2.0D0) *{1.0D0-R) 

return 

end 


double  precision  function  G2 (R) 
double  precision  R 

G2= { 1 . ODO/2 . ODO) * (1 . ODO+R) 

return 

end 


QUADRATIC  INTERPOLATION  FUNCTIONS  FOR  DISPLACEMENT 

double  precision  function  HI (R) 
double  precision  R 

Hl=l . ODO/2 . ODO* (R**2-R) 

return 

end 


double  precision  function  H2 (R) 
double  precision  R 
H2=l . 0D0-R**2 

return 

end 


double  precision  function  H3 (R) 
double  precision  R 

H3=l . ODO/2 .ODO* (R**2+R) 

return 

end 
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DERIVATIVES  OF  LINEAR  INTERPOLATIONS  FOR  CONCENTRATION 

double  precision  function  DGl(R) 
double  precision  R 

DG1={-1.0D0/2.0D0) 

return 

end 


double  precision  function  DG2 (R) 
double  precision  R 

DG2=(1.0D0/2.0D0) 

return 

end 


DERIVATIVES  OF  QUADRATIC  INTERPOLATIONS  FOR  DISPLACEMENT 

double  precision  function  DHl (R) 
double  precision  R 

DH1=(R-1.0DO/2,ODO) 

return 

end 


double  precision  function  DH2 (R) 
double  precision  R 
DH2=-2 . 0D0*R 

return 

end 


double  precision  function  DH3(R) 
double  precision  R 

DH3={R+1.0D0/2.0D0) 

return 

end 


DISTRIBUTED  LOAD  SPECIFICATION  ROUTINE 

subroutine  KFCALC ( JDLTYP, F, XGAUS , TTIME) 
double  precision  F {*), XGAUS (*), TTIXE 
integer  JDLTYP,! 

double  precision  A, EPS 

THIS  LOAD  ROUTINE  CALCULATES  THE  BODY  FORCE  AT  THE 
GAUSS  POINTS  FOR  USE  IN  FINDING  TEE  RHS  VECTOR 

IF ( JDLTYP. EQ.-l)  THEN 
C 

C  LOAD  TYPE  1  INDICATES  A  DISTRIBUTED  BODY  FORCE  OF  THE  FORM 

C  F (X) =  A/ (X+EPS) "3/2 

C  GRAVITATIONAL  BODY  FORCE  FOR  4340  STEEL  IS  ~80.0D3  [N/m"3  ] 

C  'A'  SHOULD  BE  SPECIFIED  IN  UNITS  OF  [ FORCE/LENGTH"3 /2 ] 


A=15 . 0D6 
EPS=1 . OD-18 


DO  100  1=1,2 

100  F(I)=A/sqrt( (abs (XGAUS (I) ) +EPS) * '3 . ODO ) 


END  IF 


return 

end 
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input  deck,  the  user  may  choose  between  plane-stress  or  plane-strain  constitutive  behavior,  and 
fully-coupled,  weakly-coupled  (Stress  Assisted  Diffusion),  or  uncoupled  behavior  of  the  solute- 
solid  system. 
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+  XJI (2) * (DH3 (GR(2) ) *DH3 (GR(2) ) ) *GW(2) ) 
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DiLATATiONAL  STRAINS;  DILATATIONAL  STRAIN  is  the  only  state  variable  actually  used  in  the  finite  element 


OJ 


O  S 

<  ^ 

X  i< 

X  O-  ^ 

C  -  O  O 

O  CN  CO  —  Q 

•H  X  M  X  O 

4J  V  Q  . 


u  < 


[il  ■ 


.  CN 


C  X  o  p  • 

Ti  '  *  o 

Pi  2  ^  D 

<;  T-(  o 

C  C  M  i 

O  O  CQ  tH 

•H  -H  o  <  I 
CO  CO  U  O  cri 

•H  tH  <J  • — • 

o  u  1-^  I-:)  II 

CD  0)  II  a 

}h  w  < 

Di  Ci  H  Q 

<  X 

0)  0)  J  Q 

nH  .H  D  '-' 

XI  O 

dap 

O  O  < 

t3  TJ  U 


Q  m  <  X 

X  * 

C  '  — 

O  CN  Ii<  O 

•H  X  O  D 

P  -  o 

U  .H 

a  X  2  CN 

0  '< 

cw  Di  ;s  o 

M  D 

CCS  O 

o  o  ci 

•H  -H  U  fH 

OT  W  Eh  1 

•H  tH  [d  - — •  ftj 

U  U  Q  X  •-' 

CD  a>  Q  II 

Vc  c  W  *  b 

a  Q.  B  b  tH 

<  Eh  W 
01  (D  P  td  Q 

>— I  •— I  P  Q 
P  P  U  II 
d  c  p  Di 

o  o  <;  Q 

'd  TJ  u  — 


d 

P  *0 
CD  c 


C  P 

d  o 

U-I  Di  • 
CN 

C  C 
o  o  o 
•H  -H  P 
C/l  0]  O 


C  Q 
d  o 
p  cc:  • 

(N 

c  c 

o  o  o 
•H  -H  P 
CO  CO  o 


a  a  CN 

u 

CD  (D 

p  p 
d  d 


B-25 


1) 


u 


+ 


I  'V 

rH  I  CS  v!ll^  «-l  [  CM 


III 


III 

'IT 


§■1 

B  ’C 


^  > 


H  ICM 

+ 


o 

<J 

^  O 

u  S 

•S 

c 

C  O 
O  Cu 

*o 


CU  Cu 
X  c 
41  C 


41  O 


^  e 


•c 


41  <u 


> 

c  ^ 

Q 

.§  o 

< 

•O  .t 

«j  '■S 

D 

c 

C  (U 

*o  C 

c 

o  xi 

ll 

e-‘g 

4>  -o 

S  C 

o 

u 

X 

f- 

41  CiO 

c  o 
o  c 
o  .5 

1>  ‘a 

iSl 

X 

o 

(b 

"O  -c 


o  ^ 
J2  w) 

^  2 


(/]  to  Q 
•H  'H  O 

o  o  • 

(1)  0)  .H 
i-(  II 
a  a  cH 

n: 

0)  0) 


Xi  XI 
P  13 
O  O 
X  X 


U  U  .-H 
0)  0)  II 
>-l  cs 
04  Q  a: 


o 

X  X 
0)  c 


< 

> 


a  II 
O  CN 

.  a  o 


d 

'M  Oi  O 

D 

C  C  o 


(0  U)  I 
•H  -H  cc; 

u  O 

(U  0)  II 

a  a  S 

Q 

QJ  0) 


X  X 
d  d 
o  o 
X  X 


^  Di  a: 

c  c  o 
o  o  D 

•H  -r-l  o 
to  CO  • 
•H  -H  (N 
u  U  I 
0)  a;  II 
O  l-l  (N 

a  ax 


QJ  o 


Q 


B-26 


double  precision  function  DH3(R) 
double  precision  R 

DH3= (R+1 . ODO/2 . ODO) 


APPENDIX  C:  Sample  Input  Deck 


This  Appendix  contains  a  copies  of  the  ABAQUS  input  decks  that  were  used  to  solve 
the  Case  la,  2a,  and  3a  problems.  A  section-by-section  annotated  listing  is  also  included. 
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ABAQUS  Input  Deck:  Case  la 


♦HEADING,  UNSYMM 

STATIC  DIFFUSION  --  STRONGLY  COUPLED  Standard  Case  1 
***************************************** 

**  C(0)=0.0  C(L)=lE-6 

**  // 

**  // - F(x)=0 

**  // 

**  U(0)=0.0  t(L)=0.0 


***************************************** 

♦PREPRINT 
♦NODE,  NSET=ROD 

I, 0. ODO 
21,0.10D0 
♦NGEN,NSET=ROD 

1,21,1 

♦USER  ELEMENT,  NODES=3  ,  UNSYMM,  COORDINATES=l ,  PROPERTIES=ll ,  VARIABLES  =  9  ,  TYPE=U1 
**  THE  FIRST  AND  THIRD  NODES  HAVE  DEGREES  OF  FREEDOM  IN  CONCENTRATION  AND 
*♦  DISPLACMENT,  VfflILE  THE  SECOND  NODE  ONLY  HAS  DISPLACEMENT  DEGREES  OF 
*♦  FREEDOM.  NOTE  THAT  CONCENTRATIONS  ARE  TREATED  AS  TEMPERATURE  D.O.F. 

II, 1 

2,1 

3.11.1 

♦ELEMENT, TYPE=U1, ELSET=SC1D 
1, 1, 2, 3 

♦ELGEN,  ELSET=SC1D 

1.10.2.1.1.1.1.1 

♦UEL  PROPERTY,  ELSET=SC1D 
**  PROPERTIES  ARE  IN  THE  ORDER: 

**  CFLAG,  AREA,  E,NU,D,  ALPHA,  CREF,RHO, 

**  MW, TEMP, TRAPS 

1 . ODO , 1 . OD-4 ,200.009,0. 3D0, 1 . OD-9 , 5 . 2D0 , 0 . ODO ,  7 . 8D3  , 

1.00797D-3,293.0DO,19.0DO 
♦MATERIAL, NAME=A4340 
♦DEPVAR 
9 

♦BOUNDARY 

♦♦  ZERO  DISPLACEMENT  AT  LHS 

1,1 

♦♦  ZERO  CONCENTRATION  AT  LHS 
1,11 

♦INITIAL  CONDITIONS,  TYPE=TEMPERATURE 
*♦  0.0  INITIAL  CONCENTRATION  OVER  ROD  LENGTH 
ROD, 0 . ODO 

♦WAVEFRONT  MINIMIZATION,  SUPPRESS 
♦STEP, INC=1000 

♦COUPLED  TEMPERATURE-DISPLACEMENT,  STEADY  STATE 
0.005,1.0,  ,0.05 
*  * 

♦CONTROLS ,  PARAMETERS=FIELD,  FIELD=TEMPERATURE 
,  ,5.0D-21 
*  * 

♦NODE  PRINT,  SUMMARY=NO,  FREQUENCY  =  100 
COORl,Ul,NT 

♦EL  PRINT,  SUMMARY=NO, FREOUENCY=100 
SDV 

♦BOUNDARY 

♦*  SPECIFY  RIGHT  HAND  BO'UNDARY  CONCENTRATION  AS  l.OE-6 
21,11,11, 1. OD-6 
♦END  STEP 
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ABAQUS  Input  Deck:  Case  2a 


♦HEADING,  UNSYMM 
STATIC  DIFFUSION 
********* 

**  C(0)=0.0 

**  II 

**  // - 

**  II 

**  U(0)=0.0 

★  * 

★  *,**★**•** 


STRONGLY  COUPLED  Standard  Case  2 
******************** 

C(L) =lE-6 

// 

- //  F(x)=0 

// 

U(L)=0.0 

*********************** 


********** 


********** 


♦PREPRINT 
♦NODE,  NSET=ROD 

I, 0. ODO 
21,0.10DO 
♦NGEN,NSET=ROD 

1,21,1 

♦USER  ELEMENT,  NODES  =  3  ,  UNSYMM,  COORDINATES=l ,  PROPERTIES  =  ll ,  VARIABLES  =  9  ,  TYPE=U1 
♦♦  THE  FIRST  AND  THIRD  NODES  HAVE  DEGREES  OF  FREEDOM  IN  CONCENTRATION  AND 
♦♦  DISPLACMENT,  WHILE  THE  SECOND  NODE  ONLY  HAS  DISPLACEMENT  DEGREES  OF 
♦♦  FREEDOM.  NOTE  THAT  CONCENTRATIONS  ARE  TREATED  AS  TEMPERATURE  D.O.F. 

II, 1 

2,1 

3.11.1 

♦ELEMENT , TYPE=U1 , ELSET=SC1D 
1,1, 2, 3 

♦ELGEN,  ELSET=SC1D 

1.10.2.1.1.1.1.1 

♦UEL  PROPERTY,  ELSET=SC1D 
♦♦  PROPERTIES  ARE  IN  THE  ORDER: 

♦♦  CFLAG, AREA, E,NU,D, ALPHA, CREF,RHO 
♦♦  MW, TEMP, TRAPS 

l.ODO,1.0D-4,2OO.OD9,O.3DO,l.OD-9,5.2DO,O.ODO,7.8D3, 

1.00797D-3,293.0DO,19.0DO 
♦MATERIAL , NAME=A4 3 40 
♦DEPVAR 
9 

♦BOUNDARY 

♦♦  ZERO  DISPLACEMENT  AT  LHS 

1,1 

♦♦  ZERO  DISPLACEMENT  AT  RHS 

21,1 

♦♦  ZERO  CONCENTRATION  AT  LHS 

1,11 

♦INITIAL  CONDITIONS,  TYPE=TEMPERATURE 
♦♦  0.0  INITIAL  CONCENTRATION  OVER  ROD  LENGTH 
ROD, 0 . ODO 

♦WAVEFRONT  MINIMIZATION,  SUPPRESS 
♦STEP, INC=1000 

♦COUPLED  TEMPERATURE-DISPLACEMENT,  STEADY  STATE 
0.005,1.0,  ,0.05 


♦CONTROLS,  PARAMETERS=FIELD,  FIELD=TEMPERATURE 
,  ,5.0D-21 

*  * 

♦NODE  PRINT,  SUMMARY =NO,  FREQUENCY=100 
COORl,Ul,NT 

♦EL  PRINT,  SUMMARY=NO, FREQUENCY=100 
SDV 

♦BOUNDARY 

♦*  SPECIFY  RIGHT  HAND  BOUNDARY  CONCENTRATION  AS  l.OE-6 
21,11, 11,1.00-6 
♦END  STEP 
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ABAQUS  Input  Deck:  Case  3a  (Low  Trapping) 


*HEADING,  UNSYMM 

STATIC  DIFFUSION  --  STRONGLY  COUPLED  Standard  Case  3  (200  elements)  LOW  TRAPPING 
*  *■*•****  +  ****•*•*********★*•*•*******•**■**•**** 

**  J(4.0E-B)=0.0  C(L)=lE-7 

**  // 

**  // -  F (x)  =15E6/ (x+eps) '' (3 /2 ) 

**  // 

**  ^  U(4.0E-5)=0.0 

•k 

■k  *  k  -k  k  *  *  *  k  k  *  -k  k  k  k  k  k  k  k  k  k  k  k  k  *  *  k  *  *  *  *  k  ie  k  k  k  ie  k  k  k  k 

♦PREPRINT 
♦NODE,  NSET=A 

I, 4.0D-5 
*  * 

♦NODE,NSET=B 
401,0 . lODO 

k  k 

*NFILL,NSET=ROD,BIAS=9 .470049D-1,TWO  STEP 
A, B, 400,1 
* 

♦USER  ELEMENT,  NODES=3  ,  UNSYMM,  COORDINATES=l ,  PROPERTIES=ll,  VARIABLES  =  9  ,  TYPE=U1 
♦♦  THE  FIRST  AND  THIRD  NODES  HAVE  DEGREES  OF  FREEDOM  IN  CONCENTRATION  AND 
♦♦  DISPLACMENT,  WHILE  THE  SECOND  NODE  ONLY  HAS  DISPLACEMENT  DEGREES  OF 
*♦  FREEDOM.  NOTE  THAT  CONCENTRATIONS  ARE  TREATED  AS  TEMPERATURE  D.O.F. 

II, 1 

2,1 

3.11.1 

*  k 

♦ELEMENT, TYPE=U1 , ELSET=SC1D 
1,1, 2, 3 

♦ELGEN,  ELSET=SC1D 

1.200.2.1.1.1.1.1 

♦UEL  PROPERTY,  ELSET=SC1D 
*♦  PROPERTIES  ARE  IN  THE  ORDER: 

♦♦  CFLAG, AREA, E,NU,D, ALPHA, CREF,RHO 
**  MW, TEMP, TRAPS 

1 . ODO , 1 . OD-4 , 2 00 . 0D9 , 0 . 3D0 , 1 . OD-9 , 5 . 2D0 , 0 . ODO ,  7 . 8D3 

1.00797D-3,293.0DO,19.0DO 

♦MATERIAL , NAME=A4  340 

♦DEPVAR 

9 

♦BOUNDARY 

♦♦  ZERO  DISPLACEMENT  AT  LHS 

1,1 

♦INITIAL  CONDITIONS,  TYPE=TEMPERATURE 
**  l.OE-7  INITIAL  CONCENTRATION  OVER  ROD  LENGTH 
ROD, 1 . OD-7 

*  * 

♦WAVEFRONT  MINIMIZATION,  SUPPRESS 
♦STEP, INC=5000,AMPLITUDE=STEP 

♦COUPLED  TEMPERATURE-DISPLACEMENT,  STEADY  STATE 
l.OD-4,1.0,  ,5.0D-3 

k 

♦CONTROLS  ,  PARAMETERS  =  FIELD,  FIELD=TEMPERATURE 
,  ,5.0D-21 

* 

*DLOAD, OP=NEW 
SC1D,U1NU 

k  k 

♦NODE  PRINT,  SUMMARY=NO,  FREQUENCY=100 
COORl,Ul,NT 

♦EL  PRINT,  SUMMARY=NO,  FREQUENCY=100 
SDV 
* 

♦BOUNDARY 

**  SPECIFY  RIGHT  HAND  BOUNDARY  CONCENTRATION  AS  l.OE-7 
401,11,11, 1 . OD-7 
♦END  STEP 
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ABAQUS  Input  Deck:  Case  3a  (High  Trapping) 


*HEADING,  UNSYMM 

STATIC  DIFFUSION  --  STRONGLY  COUPLED  Standard  Case  3  (200  elements ) HIGH  TRAPPING 
**  *************************************** 

**  J{4.0E-5)=0.0 

**  // 

**  // - 

**  // 

**  ^  U(4.0E-5)=0.0 

*  ★ 

****************************************** 

* PREPRINT 
*NODE,  NSET=A 

I, 4.0D-5 
*  * 

*NODE,NSET=B 
401,0.10DO 
•*  * 

*NFILL, NSET=ROD, BIAS=9 . 470049D-1 , TWO  STEP 
A,B, 400,1 
★  *• 

*USER  ELEMENT,  NODES=3  ,  UNSYMM,  COORDINATES  =  l ,  PROPERTIES  =  ll ,  VARIABLES  =  9  ,  TYPE=U1 
**  THE  FIRST  AND  THIRD  NODES  HAVE  DEGREES  OF  FREEDOM  IN  CONCENTRATION  AND 
**  DISPLACMENT,  WHILE  THE  SECOND  NODE  ONLY  HAS  DISPLACEMENT  DEGREES  OF 
**  FREEDOM.  NOTE  THAT  CONCENTRATIONS  ARE  TREATED  AS  TEMPERATURE  D.O.F. 

II, 1 

2,1 

3.11.1 
*  * 

♦ELEMENT , TYPE=U1 , ELSET=SC1D 
1,1, 2, 3 

♦ELGEN,  ELSET=SC1D 

1.200.2.1.1.1.1.1 

*UEL  PROPERTY,  ELSET=SC1D 
**  PROPERTIES  ARE  IN  THE  ORDER: 

**  CFLAG, AREA, E,NU,D, ALPHA, CREF,RHO 
**  MW, TEMP, TRAPS 

1.0D0,1.0D-4,200.0D9,0.3D0, 1.0D-9,5.2D0,0.0D0,7.8D3 

1.00797D-3,293.0D0,499.0D0 

♦MATERIAL , NAME=A4  340 

♦DEPVAR 

9 

♦BOUNDARY 

*♦  ZERO  DISPLACEMENT  AT  LHS 

1,1 

♦INITIAL  CONDITIONS,  TYPE=TEMPERATURE 
**  l.OE-7  INITIAL  CONCENTRATION  OVER  ROD  LENGTH 
ROD,1.0D-7 
★  * 

♦WAVEFRONT  MINIMIZATION,  SUPPRESS 
♦STEP, INC=5000, AMPLITUDE=STEP 

♦COUPLED  TEMPERATURE-DISPLACEMENT,  STEADY  STATE 
l.OD-4,1.0,  ,5.0D-3 
*  * 

♦CONTROLS ,  PARAMETERS =FIELD, FIELD=TEMPERATURE 
,  ,5.0D-21 
*  * 

*DLOAD,OP=NEW 
SC1D,U1NU 
*  ★ 

♦NODE  PRINT,  SUMMARY =NO,  FREQUENCY=100 
COORl,Ul,NT 

♦EL  PRINT,  SUMMARY=NO,  FREQUENCY=100 
SDV 
*  * 

♦BOUNDARY 

*♦  SPECIFY  RIGHT  HAND  BOUNDARY  CONCENTRATION  AS  l.OE-7 
401, 11,11, 1 .0D~7 
♦END  STEP 


C(L)=lE-7 

F(x)=15E6/ (x+eps) - (3/2) 
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*  To  run  a  case  with  no  coupling  (i.e.  standard  linear  elasticity  combined  with  classical  diffusion)  the  parameter 
ALPHA  must  be  set  equal  to  zero.  KFLAG  is  then  used  to  select  plane-stress  or  plane-strain  analysis;  changing 
between  “Fully-Coupled”  and  “Weakly-Coupled”  analysis  will  have  no  effect. 


WAVEFRONT  MINIMIZATION,  SUPPRESS  WAVEFRONT  MTNTMIZATION  can  be  suppressed,  since  it  is  seldom  needed  in  1-D 

problems  in  which  the  element  and  node  numbering  begins  at  one  end  of  the  rod  and  continues 
along  consecutively. 
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APPENDIX  D:  Sample  Output 


This  Appendix  contains  a  copy  of  an  ABAQUS  output  listing  generated  in  the 
solution  of  a  1-D  fully  coupled  deformation-diffusion  problem. 
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ABAQUS  VERSION  5.3-1  DATE  17-MAR-95  TIME  14:29:46  PAGE 
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MODELING  OF  HYDROGEN  TRANSPORT 
IN  CRACKING  METAL  SYSTEMS 
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University  of  Notre  Dame 

Department  of  Aerospace  and  Mechanical  Engineering 
374  Fitzpatrick  Hall 
Notre  Dame,  IN  46556-5637 


Abstract 

An  extended  stress-assisted  diffusion  theory  with  concentration  induced  deformations  and 
equilibrium  trapping  effects  was  developed  for  modeling  hydrogen  transport  in  cracking  metal 
systems.  Special  Fortran  “user  element”  subroutines  were  written  for  the  ABAQUS  finite 
element  code  to  solve  the  transport  equations  in  1-D  geometries.  A  simple  rod  problem  with  a 
square-root  singular  stress  was  analyzed  to  assess  the  influence  of  the  hydrogen  induced 
deformation  on  the  concentration  and  deformation  field  variables.  Significant  differences 
between  the  classical  and  extended  stress-assisted  diffusion  theory  were  demonstrated  and  the 
implications  for  modeling  crack  tip  hydrogen  distributions  discussed. 


Introduction 

Two  fundamental  questions  naturally  arise  in  modeling  the  influence  of  hydrogen  on  the 
crack  growth  rate  of  metals.  Namely,  how  does  hydrogen  “enhance”  the  crack  growth  rate 
(CGR);  and  what  is  the  relationship  between  the  hydrogen  distribution  within  the  material  and 
the  corresponding  “enhancement”  in  the  CGR?  Quantitative  knowledge  of  the  crack  tip  hydrogen 
distribution  under  service  or  laboratory  test  conditions  is  requisite  to  addressing  these  questions 
and  will  require:  a)  a  hydrogen  transport  model  that  incorporates  trapping  and  deformation- 
concentration  coupling  effects  (governing  equations);  b)  knowledge  of  the  time  dependent,  non- 
uniform  hydrogen  distribution  along  the  crack  walls  (boundary  conditions);  and  c)  a 
mathematical  solution  technique  for  the  resulting  system  of  non-linear  equations. 

Stress-assisted  diffusion  (SAD)  theory  [1]  is  commonly  used  to  model  hydrogen  transport 
in  cracking  metals  systems.  This  theory  represents  an  extension  of  classical  diffusion  with  a 
hydrostatic  stress  gradient  term  added  as  a  driving  force  for  diffusive  transport.  Equilibrium 
trapping  effects  are  included  through  the  use  of  an  effective  diffusion  coefficient.  The  influence 
of  hydrogen  on  the  material  deformation  state  is  assumed  to  be  negligible,  and  this  uncouples  the 
deformation  equations  from  the  concentration  variable.  Hydrostatic  stresses  determined  from 
solutions  to  standard  elasticity  or  plasticity  problems  are  used  with  the  SAD  equation  to  solve  for 
the  resulting  concentration.  The  steady-state  hydrogen  distribution  for  Mode  I  cracks  in  linear 
elastic  materials  with  uniform  hydrogen  concentration  along  the  boundaries  is  given  by  [2]: 


c  =  coexp 


^onstant  x 


where  cq  is  the  boundary  concentration,  K  is  the  stress  intensity  factor,  and  r  and  6  are  polar 
coordinates  centered  at  the  crack  tip.  An  infinite  hydrogen  concentration  is  predicted  at  the  crack 
tip.  Transient  and  steady-state  hydrogen  distributions  for  a  plastically  deforming  crack  in  iron 
have  been  obtained  by  Sofronis  &  McMeeking  [3]  using  finite  element  methods.  Their  results 
show  large,  but  finite,  concentrations  at  the  crack  tip  region,  primarily  in  traps  near  the  crack 
surface.  They  conclude  that  the  crack  tip  hydrogen  distribution  is  primarily  determined  by  the 
creation  of  dislocation  traps  via  plastic  straining  at  the  crack  tip. 

Damage  models  that  attempt  to  link  the  crack  tip  hydrogen  distribution  to  the  fracture 
process  have  been  reviewed  in  [4-6].  Applications  to  service  cracking  problems  have  met  with 
some  success,  but  the  lack  of  information  on  the  crack  wall  hydrogen  distributions  under  service 
or  laboratory  conditions  has  limited  the  usefulness  of  these  models. 

The  task  of  specifying  the  crack  wall  hydrogen  distribution  is  difficult  because  of  the 
complex  nature  of  the  interacting  chemical,  mechanical,  and  metallurgical  processes  operative 
during  hydrogen  assisted  cracking  of  metals  (Figure  1).  In  aqueous  systems,  the  hydrogen 
production  process  is  driven  by  the  rapid  and  irreversible  evolution  of  the  chemically  unstable 
“bare”  surface  at  the  crack  tip  to  a  more  stable  equilibrium  “filmed”  state.  An  electron  flow  is 
induced  between  the  bare  and  filmed  crack  flank  surfaces;  net  anodic  (dissolution/filming) 
reactions  take  place  on  the  bare  surface  and  net  cathodic  (hydrogen  reduction)  reactions  take 
place  on  the  filmed  surfaces. 

Adsorbed  hydrogen,  Hads ,  can  be  produced  on  both  the  bare  and  filmed  crack  surfaces 
by:  (1)  the  reduction  of  hydrogen  ions  in  acidic  environments;  or  (2)  by  the  reduction  of  water  in 
alkaline  environments.  The  MHads  species  are  then  free  to  be  absorbed  by  the  transition  reaction 
(a);  or  combine  to  form  gas  via;  recombination  (bl);  or  electrochemical  desorption  (52). 
Reactions  (a),  (bl),  and  (b2)  occur  in  parallel,  but  one  of  the  two  (bl)  or  (b2)  reactions  is  usually 
dominant  (Figure  2). 


Crack  Tip  Region 


3 .  Hydrogen  Absorption  Reactions 

4.  Hydrogen  Transport  and  Trapping 

5.  Hydrogen  Damage 

Figure  1:  Schematic  of  the  processes  responsible  for  hydrogen  assisted  crack  growth. 
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(1)  Acidic: 

M  +  H^  +  e-^  MHads 

(2)  Alkaline: 

M  +  H2O  +  e-  ^  MHads  +  OH~ 

(a)  Adsorption-Absorption: 

M^Hads  MHahs 

(bl)  Recombination: 

MHads  +  MHads  ^  H2  +  2M 

(b2)  EC  Desorption: 

MHads  +  H+  +  e-<:^H2  +  M 

Figure  2:  Summary  of  the  hydrogen  produeing  reactions. 


The  distribution  of  MHabs  along  the  crack  surface  is  governed  by  the  surface  coverage  of 
MHads  and  the  kinetics  of  reaction  (a)  acting  in  parallel  with  reaction  (bl)  or  (b2).  These  factors 
are  influenced,  in  turn,  by;  the  electrochemical  environment  at  the  crack  tip  region  (e.g.,  the 
potential,  pH,  species  concentrations,  dissolved  O2,  etc.);  the  kinetics  of  the  bare  and  filmed 
surface  reactions;  and  the  rate  of  transport  of  Hats  from  the  crack  surface  into  the  material. 

Iyer  and  Pickering  [7]  review  and  model  the  mechanisms  and  kinetics  of  hydrogen 
evolution  and  entry  in  stress  free  metallic  systems  with  homogeneous  electrochemical  conditions 
at  the  metal  surface.  Their  model  is  used  to  quantify  the  rate  constants  associated  with  reactions 
(1)  or  (2)  and  (a)  and  (bl)  or  (b2)  via  analysis  of  experimental  permeation  data.  Turnbull  [8]  has 
reviewed  electrochemical  conditions  in  cracks  with  particular  emphasis  on  corrosion  fatigue 
cracks  of  structural  steels  in  sea  water.  Similarly,  Beck  [9]  and  Newman  [10]  have  examined 
experimental  techniques  for  characterizing  bare  (and  filmed)  surface  reaction  kinetics.  It  seems 
that  the  above  models,  data,  and  techniques,  plus  information  concerning  the  rate  controlling 
process  during  crack  growth,  will  have  to  be  used  in  an  analysis  of  the  mass  transport  process 
within  the  crack  to  develop  realistic  predictions  of  the  MHads  distribution. 

The  objective  of  this  paper  is  to  address  the  above  items  a)  and  c).  A  hydrogen  transport 
model  for  isothermal  linear  elastic  materials  with  mutual  deformation-concentration  coupling  and 
equilibrium  trapping  is  developed  using  continuum  mixture  theory.  Computational  solutions  for 
1-D  geometries  and  arbitrary  boundary  conditions  are  obtained  using  the  finite  element  code 
ABAQUS’  supplemented  with  Fortran  “user  element”  subroutines.  The  code  is  used  to  analyze 
hydrogen  transport  in  a  4340  steel  rod  subjected  to  a  singular  body  force(  ~  Ajx^!^  )  which 
produces  a  square  root  singular  stress.  The  concentrations,  displacements,  and  dilatational  strains 
predicted  by  the  fully  coupled  theory  are  somewhat  larger  than  those  predicted  by  classical  SAD 
theory,  depending  on  the  extent  of  trapping.  Further  examination  of  the  fully  coupled  theory  in 
the  context  of  hydrogen  transport  in  2-D  crack  systems  is  currently  underway. 

The  paper  begins  with  a  description  of  the  strongly  coupled  hydrogen  transport  model. 
The  use  of  ABAQUS  with  its  “user  elemenf’  subroutines  for  solving  1-D  problems  is  described 
next,  followed  by  an  analysis  and  discussion  of  hydrogen  transport  in  a  rod  with  a  singular  body 
force.  Extension  of  the  finite  element  model  to  2-D  geometries  and  its  application  to  cracking 
metal  systems  is  briefly  discussed,  followed  by  suggestions  for  future  work. 


ABAQUS  is  a  commercial  finite  element  code  supported  by  Hibbitt,  Karlsson  &  Sorensen,  Inc.,  Pawtucket,  RI. 


Modeling  the  Hydrogen  Transport  and  Trapping  Process 
Three  species  of  hydrogen  are  modeled  in  the  analysis: 

=  interstitial  or  lattice  hydrogen 

Hr  =  weak  or  moderately  (reversibly)  trapped  hydrogen  (e.g.,  AEj  <  30) 

Hi  =  strongly  (irreversihly)  trapped  hydrogen  (e.g.,  >  30  kJ/mol) 

Balance  Equations 

Balance  equations  for  the  mixture  mass,  the  three  hydrogen  speeies  masses,  the  mixture 
linear  momentum  and  moment  of  momentum,  mixture  energy,  and  mixture  entropy  can  be 
written.  Since  our  modeling  considerations  are  restricted  to  isothermal  linear  elastic  materials, 
only  the  balance  equations  for  the  hydrogen  species  mass  and  the  mixture  linear  momentum 
(assuming  negligible  inertial  effects)  need  be  explicitly  considered.  They  are  given  by: 

Mass:  ^  +  V  ■  Jit  =  (k  =  L,R,orI)  (1) 

Linear  Momentum:  Uijj  +  Fi~  0  {i,  j  =  x,  y,  or  z)  (2) 

where:  Ck  =  mass  fraction  concentrations  for  Hk  [kg/ kg]. 

Jk  =  concentration  flux  vectors  for  Hk  [kg/ kg  ■  m/s], 
ak  =  mass  supply  rates  for  Hk  [kg/kg/s] . 

Gij  =  stress  tensor  . 

Fi  =  the  component  of  body  force  vector  [N/m^] . 

Trapping  Analysis 

Expressions  for  the  mass  supply  rates  ak  in  Eq.  (1)  are  written  in  accordance  with  the 
trapping  model  of  McNabb  &  Foster  [11]: 

Stoichiometry:  Hr  ^  Hr  and  Hr  Hj  (3) 

The  stoichiometric  relations  require  the  supply  terms  sum  to  zero  (i.e.,  aR  +  aj  =  —  or). 

Kinetics  of  Trapping:  or  =  k^Rif  —  dfjCR  —  k]i6^  (4) 

aj  =  kj{l  -  9j)cr  -  k]9,  ^  k{{l  -  9,)cr 


where:  kj,  k/f^,  k\  =  forward  and  backward  trap  rate  constants  for  Hr  and  Hj  [1/s]. 

9j^  and  9^  =  cr/c^^  and  c//c|,  respectively,  are  the  fraction  of  filled  trap  sites  [1]. 
and  Cj  =  saturation  mass  fraction  concentration  of  Hr  and  Hi  [kg /kg]. 

The  quantities  kj^,  kj,  /c^,  /cj,  c|j  and  c|  are  related  to  trap  site  densities,  probability  of  capture, 
etc.  and  can  be  determined  from  experimental  measurements  (e.g.,  [12-14]). 

Significant  simplifications  are  effected  when  the  rate  constants  for  trapping  are  much 
greater  than  those  for  diffusive  transport.  Trapping  can  then  be  modeled  as  a  steady-state  process 
(i.e.,  Or  ~  Or  =  ai  =  0).  This  case  is  considered  below. 
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SS  Trapping: 


CR 


Cr  Kr  cl  ^ 
1  +  Kr  Cr 

'^R 


Cr  Kr  Cr  & 

-AEb 


Cl  =  Cr 


(5) 


exp 


RT 


so  that  the  total  internal  hydrogen  concentration  is  simply  a  linear  function  of  CR^Xi,  t): 

CTOTAL{Xi,t)  =  CR{Xi,  t)  +  CR{Xi,  t)  +  Cl{Xi,  f)  =  (1  +  C%  KR)cR{Xi,  t)  +  Cj 


(6) 


The  three  versions  of  Eq.  (1)  can  be  summed  to  give  a  single  equation  by  the  following 
considerations.  First,  Jr  —  Ji  =  Q  because  of  the  linear  elastic  material  assumption  which 
precludes  trap  site  motion  (e.g.,  dislocation  motion  during  plastic  deformation).  And  second, 
from  Eq.  (5a): 


dcR  3  dcR  dci 

—R—  fa  Co  Kr  -r—  and  =  0 

dt  ^  “  dt  dt 

(7) 

The  resulting  mass  balance  equation  is  given  by: 

(8) 

Constitutive  Eauations 

Mass  Flux: 

Jr=  --^—^VpR  Linear  Onsager  Relation 

Rr  T 

(9) 

where  pR  is  the  mass  based  chemical  potential  [15]  defined  by: 

M  ^  +  KT  In(ci)  -  Vuke) 


(10) 


and:  Dr  =  diffusion  coefficient  for  Hr  [vn? / s]. 

Rr  =  gas  constant  for  Hr  =  RIMr  {J j kg  ■  °K]. 

M.R  =  molecular  mass  of  hydrogen  [kg/mol]. 

T  =  temperature 

ijj  =  'ip{cR,  CR,  CR-,  Cij ;  T)  free  energy  per  unit  mixture  mass  [J/kg]. 

P°r{T)  =  reference  potential  for  HrzX  temperature  T  [J/kg]. 

V H  =  partial  molar  volume  of  hydrogen  in  the  metal  [rn?  / mol  H], 
k  =  bulk  modulus  of  elasticity  [AT/m^j. 

e  =  trace  of  the  strain  tensor  (i.e.,  e  =  €{{=  en  +  €22  +  €33)  [m/m]. 

The  use  of  mass  based  chemical  potentials  simplifies  the  analysis  of  fully  coupled  deformation- 
diffusion  processes  because  of  the  primary  role  played  by  mass  in  the  deformation  equations. 

The  resulting  expression  for  concentration  flux  is  given  by: 


Vh  Dr 

Jl=  -  Dr  Vcr  -I — ^  kcRVe 


(11) 
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The  constitutive  equation  for  the  stress  consists  of  Hooke's  law  combined  with  a 
dilatational  stress  contribution  due  to  changes  in  the  total  hydrogen  concentration: 

O  I 

Stress:  aij  =  p  - —  =  A  e  6ij  +  2Geij  -  3  A:  (1  +  c%Kr)A  cr  5ij  (12) 

OEij 

where  p  =  mass  density  of  the  solid  \kg/rin?\ . 

A  =  Lame'  constant  [A^/m^]. 

6ij  =  Kronecker  delta  (6ij  =  1  fori  —  j  and  0  otherwise). 

G  =  shear  modulus  [N/rn?]. 

eij  =  ^  {uij  +  Uj^i)  infinitesimal  strain  tensor  [m/m]. 

Ui  —  the  component  of  the  displacement  vector  [m] . 

an  =  linear  expansion  coefficient  for  internal  hydrogen  =  \-j^V h  [m/ml Ach]- 
(1  +  CrKr)Aci  =  change  in  ctotai  from  some  reference  level. 

The  relationship  between  the  chemical  potential  and  stress  (Eqs.  (10)  and  (12))  is  dictated  by  the 
thermodynamic  reciprocity  relationship: 

^  =  (13) 

deij  dcL 


Governing  Equations 

Combining  the  mass  and  momentum  balance  equations  with  the  constitutive  relations 
results  in  the  following  system  of  governing  equations  for  transport: 

Diffusion  Equation: 

’A  =  D,„  fc  (  Vci  ■  Ve  +  Cl  V^e)  ( 14) 

Deformation  Equations  {i=  1,  2,  3): 

^  p  0  T 

(A  +  G)  +  GV'^Ui  +  iq  =  +  c|j 

where  De//  is  an  “effective”  diffusion  coefficient  defined  by:  D^jf  =  Dr/ {1  +  c%Kr). 

Equation  (14)  is  identical  to  the  stress-assisted  diffusion  equations  published  in  the 
literature  with  the  exception  of  the  V^e  term  which  is  identically  zero  when  linear  elastic 
material  behavior  is  assumed  (and  L)  =  0).  In  the  present  formulation  it  is  given  by: 

V"e=|^(l  +  cf,ii-j,)V^ci  (16) 


Computational  Modeling 

Equations  (14)  and  (15)  form  a  system  of  non-linearly  coupled  partial  differential 
equations  that  must  be  solved  for  cr  and  Ui  as  functions  of  the  space  and  time  coordinates  (x,).  t). 
This  is  accomplished  for  1-D  geometries  by  writing  Eortran  “user  element”  subroutines  for  the 
ABAQUS  finite  element  code  to  effect  a  computational  solution.  The  1-D  “plane  stress”  form  of 
the  governing  equations^  {Oyy  =  a^z  =  0)  is  given  by 


2  “Plane  strain”  forms  of  the  1-D  equations  can  be  obtained  by  a  simple  change  in  constants. 
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Diffusion: 


(17) 


^  ‘4 


Deformation: 


+  Fx  —  0 


ax  =  3k{e  -  San  (1  +  CjiKr)Acl)  ~  -  ajf  (1  +  CrKr)Acl 


A  single  differential  equation  for  cl  can  be  obtained  by  combining  Eqs.  (17)  and  (18): 


dcR  d 


pVjjk 


dCL  V H  Deff 

dx  3RT 


FxCl 


which,  in  the  absence  of  body  forces,  is  a  standard  diffusion  equation  with  a  coneentration 
dependent  diffusion  coefficient.  Solutions  to  the  steady-state  problem,  with  and  without  body 
forces,  can  be  obtained  by  integration  (symbolic  computation  is  highly  recommended). 

A  coupled  set  of  equations  for  a  single  finite  element  of  length  h  and  cross-sectional  area 
A  can  be  written  from  Eqs.  (17-18)  using  the  method  of  weighted  residuals.  The  result,  after 
integration  by  parts,  is  given  by: 


dx=  -  Jl 


-1-  Fx  {Hfx)}  ]  dx  =  -  ax  {Hj{x)}\ 


where; 


2 

CL  =  '^G^{x)c^{t)  =  LG,(x)J{cj(f)}  i  =  l,2 
1=1 
3 

u  =  Y^Hfx)uj  =  [Hfx)\ {Uj}  J  =  1,  2,  3 
j=i 


(21) 


are  2  and  3  node  finite  element  representations  for  the  lattice  concentration  and  displacement, 
Gfx)  and  Hj{x)  are  the  respective  linear  and  quadratic  interpolation  functions,  and  • -J 
indicates  a  row  matrix  while  {•  •  •}  indicates  a  column  matrix. 

Substituting  Eqs.  (21)  into  (17b)  and  (18b)  and  converting  to  isoparametric  coordinates, 
results  in  finite  element  equations  of  the  form: 


[Cci  10)1  ,  riXci  iffci  1  r  {c.}  \  /  {i?c}  \ 

(0)  [0]  J  1  [  [K^\  [lU  J  1  {«,}  /  Uil.}  J 


(22) 


The  capacitance,  stiffness,  and  RHS  matrices,  [C],  [If],  and  {i?},  are  functions  of  cl  and  u, 
which  necessitates  the  use  of  nonlinear  solution  techniques.  The  integrations  required  for  the 
computation  of  the  [G]  and  [if]  matrices  are  accomplished  using  two-point  Gauss  quadrature. 
The  term  dejdx  in  Jl  includes  the  second  derivative  in  u  (from  Eq.  (18b); 


(23) 


This  would  normally  require  the  use  of  continuous  elements  in  order  for  u  to  satisfy  the 
element  interface  compatibility  requirement  [16],  To  avoid  this  complication,  we  use  the  values 
of  u  and  cl  from  the  previous  time  step  to  approximate  dejdx  in  the  current  time  calculations. 

The  deformation  equations  are  analogous  to  those  of  linear  thermoelasticity.  This  allows 
the  use  of  ABAQUS'  coupled  temperature-displacement  routine  to  solve  the  problem.  Time 
integration  is  performed  using  an  implicit  backwards  difference  scheme.  The  computations  and 
setup  required  of  the  user  element  subroutine  include  [17]:  calculation  of  the  [C],  [K]  and  {R} 
matrices;  calculation  of  the  “Jacobian”  and  {right-hand-side}  matrices  for  the  Newton-Raphson 
non-linear  solver  routine;  and  updating  the  solution  dependent  state  variables:  dfy,  Ox,  e,  and 
dejdx.  The  subroutine  is  written  in  double  precision  Fortran,  and  the  code  is  run  on  a  Sun 
SPARC  10  workstation. 


Applications 

Steady-state  hydrogen  transport  in  a  4340  steel  rod  subjected  to  a  body  force  selected  to 
give  a  Ij  y/x  singular  stress  (Figure  3)  was  studied  using  the  ABAQUS  code.  The  rod  was 
discretized  using  200  elements  of  length  k  =  0.104/0.94*“^  [/um],  where  the  first  and  smallest 
element  (Zi  =  0.104  [fim])  was  placed  at  the  left-hand  end  of  the  bar  (x  —  4  x  10“^  [cm]).  The 
parameter  values  used  in  the  analysis  were:  p  =  7.8[p/cm^];T=293  [K];i7L  =  1  x  10"^ 
[cm^/s];  Vh  =  2.0  [cm^ /mol];  Ml  =  1.00S[g/mol];  (1  +  Cj^Kr)  =  20  (low  trapping)  &  500 
(high  trapping);  E  =  200  [GPa];  u  =  0.3;  =  15  x  10®  [iV/m®],  and  {cL)ref  ~  0- 


Body  Force, 


u(4.0x  ]0-^)=0  ax(0.10)=0 

Figure  3:  The  rod  geometry  with  the  applied 
body  force  and  boundary  conditions. 


Figure  4:  Gauss  integration  point  stresses 
with  a  least  squares  line  fit  through  the  data. 


Results 

An  analytical  solution  to  this  problem^  was  obtained  by  direct  integration  of  Eq.  (19).  The 
singular  nature  of  the  body  force  results  in  a  mathematical  solution  for  the  concentration  that  is  a 
multi-valued  function  of  x.  In  order  to  avoid  the  multiple  concentration  values,  we  must  restrict 


3  To  be  described  in  more  detail  in  a  future  publication. 
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our  considerations  to  the  region  a;  >  4  x  10  ^  [cm].  The  difficulty  arises  when  the  sign  of  the 
dcL/dx  coefficient  term  in  Eq.  (19)  changes  from  positive  to  negative.  That  is,  when  cz  exceeds 

some  “critical”  value  given  by:  E  T/p  Vffk{l  +  cf^  Kr)  . 

Figures  4  through  8  show  the  steady-state  analytical  and  finite  element  (FE)  results  (every 
20th  point)  for  the  high  and  low  trapping  conditions.  Figure  4  shows  the  FE  stresses  at  the  Gauss 
integration  points  with  a  least  squares  fit  line  through  the  FE  data.  The  stress  in  this  problem  is 
not  influenced  by  the  hydrogen;  it  is  simply  related  to  the  integral  of  the  body  force  per  Eq.  (18a). 
The  required  square  root  singularity  in  the  stress  is  clearly  predicted  by  the  FE  code  as  indicated 
by  the  slope  of  the  least  squares  line  fit. 

Figures  5  &  6  show  the  concentration  distribution  for  the  fully  coupled  and  stress-assisted 
diffusion  (SAD)  theories  with  (Thyd  =  10  x  10^/ ^/x.  The  fully  coupled  model  predicts  larger 
concentrations  than  the  SAD  model  as  the  singularity  is  approached,  and  the  difference  increases 
as  the  degree  of  trapping  increases  (i.e.,  1  +  Cj^Kr  =  500  -vs.-  20).  Figure  6  shows  that  the  fully 
coupled  concentration  singularity  is  more  severe  than  the  exponential  square  root  singularity  of 
the  SAD  model  for  the  higher  trapping  case. 


Figure  5:  Concentration  predictions  for  the 
fully  coupled  and  SAD  theory  under  high  and 
low  trapping  conditions. 


Figure  7:  Nodal  displacement  curves  for  a 
variety  of  conditions. 


Figure  6:  Plot  to  illustrate  the  difference  in 
singular  behavior  between  the  fully  coupled 
and  SAD  model  concentration  predictions. 


Figure  8:  Analytical  and  FE  dilatational 
strains  for  a  variety  of  conditions. 


Figures  7  &  8  show  nodal  displacement  curves  and  Gauss  point  dilatational  strains, 
respectively.  The  fully  coupled  theory  predicts  larger  displacements  and  dilatational  strains 
throughout  the  rod.  Again,  the  differences  increase  as  the  degree  of  trapping  increases.  The 
displacements  and  strains  for  the  zero  body  force  case  are  also  shown. 

Discussion 

This  simple  rod  problem  with  its  square  root  singular  stress  clearly  illustrates  the 
differences  between  the  fully  coupled  and  classical  SAD  models.  The  concentration  differences 
are  relatively  small  but  dependent  on  the  trapping  constants  (i.e.,  the  amount  of  trapped 
hydrogen).  The  non-physical  nature  of  the  multi-valued  concentration  in  the  fully  coupled  theory 
may  be  an  indication  that  singularities,  like  the  inverse  square  root  singularity  found  at  2-D  crack 
tips  in  classical  elasticity,  do  not  naturally  arise  in  the  fully  coupled  theory.  This  could  have 
important  implications  in  modeling  the  hydrogen  damage  at  2-D  crack  tips. 

The  influence  of  the  concentration  coupling  to  the  deformation  state,  and  its  role  in  the 
hydrogen  damage  process,  is  also  an  important  consideration.  The  fully  coupled  theory  exhibits 
larger  dilatational  strains  than  those  predicted  by  SAD  theory  (classical  elasticity),  but  identical 
stresses.  On  the  other  hand,  a  bar  fixed  between  two  walls  and  subject  to  a  change  in 
concentration  results  in  differences  between  both  strain  and  stress.  This  is  also  likely  to  be  true  in 
two  and  three-dimensional  problems  where  the  deformations  in  different  directions  are  coupled 
through  the  constitutive  equations. 

The  results  suggest  the  need  for  an  examination  of  the  coupled  theory  in  the  context  of 
crack  tip  hydrogen  predictions.  We  are  currently  developing  2-D  isoparametric  rectilinear  (8- 
node  displacement;  4-node  concentration)  and  axisymmetric  user  element  routines  for  use  in  this 
task.  Extension  of  the  model  to  include  the  effects  of  non-equilibrium  trapping,  crack  tip 
plasticity,  and  hydride  formation  will  be  considered  in  the  future. 
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